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PROGRAM ACAO D 
GRAFICOSEM3-DC3 




ONTO DE GBSERVACAQ 



NTES DE COMECAR 



AS TRANSFORMACOES 



As leis da perspectiva foram 
formuladas no decorrer do Renascimento 
por artistas como Alberti e 
Leonardo. Aqui, voce podera aplica-las, 
acionando apenas algumas teclas. 



Embora nos permitisse desenhar urn 
Ctibo cm tres dimensoes e variar o sen 
tamanho, o programs apreseniado nos 
dois liltimos arligos desta serie linha 
uma limilacao: com clc era possivel vi- 
suulizar o desenho apenas de frcnte. As- 
sim, era impossivei observa-lo de ciffla, 
de lado ou de qualquer oulro angulo que 
desejassemos. Este artigo ot'erece roli- 
nas extras que nos pcrmitirao especifi- 
car a posieao dos nossos olhos, de mo- 
do a poder observar o cubo de qualquer 
posieao. 

Essa dcxihilidade e inuito litil, sobre- 
tudo para desenhos de objetos mais 
aniiplicados, pois a visao que obiemos 
nas dilerenics posieoes podc nos reve- 
lar tracos escondidos ou obseuros. Ao 
especifkarmos uma sucessao de coorde- 
nadas dil'erentes para a posieao dos nos- 
sos olhos, teremos a imprcssfio de CStar 
"sobrcvoando" o objeto. 

No entanto, embora usemos us mes- 
mos principios, a scqitcncia de desenhos 
que pod* ser gerada em um computadot 
pessoai e muito lenta e o et'eilo obtido, 
inferior ao dos desenhos tipo wireframe 
dos comerciais de iclevisiio. Ncstej tilti- 
mos, temos a impressao dc que o obser- 
vador aproxima-se de um objeto (car- 
ro, nave esparial etc.) e o contorna a 
uma alia velocidade. 




EFEITO DO PONTO DE OBSERVAQAO 



J a mostramos como e possivel repre- 
sentar urn objeto tridimensional em uma 
tela de duas dimensoes, usando conven- 
ers visuais que serao interpretadas pe- 
los olhos e pelo cerebro do observador. 
Os programas anteriores fizeram isso 
por intermedio de uma projecao isome- 
trica, na qua! linhas obliquas sao vistas 
no contexto do desenho entrando ou 
saindo da tela. 

A forma mais comum de eonveneao 
visual e o desenho em perspectiva, em 
que as iinhas que se afastam do obser- 
vador (ou seja, "entram" na tela) con- 
vergem para um ponto distante, conhe- 
cido como Ponto de Fuga, e tern dimi- 
nuidas as suas dimensoes, a medida que 
se afastam do primeiro piano. Na reali- 
dade ha tres pontos de f uga na perspec- 
tiva em 3-D: um para cada linha orto- 
gonal desenhada ao longo dos eixos. A 
posicao dos tres pontos e fixada com ba- 
se na relacao entre as posigoes do ob- 
servador e as do objeto a ser represen- 
tado (na eonveneao visual, esses pontos 
sao imaginarios), 

Assim, a primeira coisa que precisa- 
remos saber e a relacao entre as posicoes 
do observador e as do objeto. Para de- 
terminarmos essa relacao, devemos in- 
dicar o ponto de vista para os eixos X, 
Y e Z que foram especificados na tela. 
Os programas a seguir fazem exatamen- 
te isto, executando depois as transfor- 
macoes necessarias. 



ANTES DE COMECARMOS 



Para rodar esses novos segmentos de 
programa listados abaixo, recorremos a 
Rotina da Grade apresentada no artigo 
Programacao de Grdficos em 3-D (I)k 
pagina 581. Essa rotina deve ser earre- 
gada no computador. Uma boa ideia e 
carregar tambem a Rotina do Desenho 
do Circulo que se encontra no mesmo 



Um ponto de observacao distante cria 
apenas um leve efeilo de perspectiva, 
cnquanio um ponto muito proximo 
lentil- a distorter a imagem (a direita). 




artigo. Embora esta ultima nao seja ne- 
cessaria por enquanto, convem termos 
todas as rotinas juntas, prontas para o 
programa global de desenhos que saira 
no proximo artigo. Desse modo, as Ii- 
nhas que precisaremos agora sao as que 
vao de 5000 a 6160; todas as outras po- 
dem ser apagadas. 

Como anteriormente, teremos que 
entrar varias porcoes de programa an- 
tes de podermos rodar qualquer coisa, 
pois a posicao dos olhos, da mesma ma- 
neira que as transformacoes para rota- 
cao e perspectiva, devem ser implemen- 
tadas em primeiro lugar. 




DEFINICAQ DO PONTO DE OBSERVACAO 



A primeira pane do programa calcula 
as variaveis necessarias para se determi- 
nar a posicao do olho do observador no 
espaco tridimensional: 

fffi I 

8000 

8010 

8020 

8030 

8035 

8040 

8050 

8060 

8070 

8080 

8090 

H 

8100 

B110 

8120 

8130 

8140 

8150 

8160 



xu-x:yv-y:z«»z 
wv-yv*yv+zu*zv 
pv-s0r{xv*xw+hv) 
if pv-0 them return 

WV-3QR(HV) 

XU-XV/PV 

YU-YV/PV 

ZU-ZU/PV 

WU=UU/PW 

REM ORIENTACAO DO OLHO 

A-XV*YV:B=ZU:GOSUB 8450 :G- 

A-YV:B«XV:G0SU8 B450:G-G+H 

SC-SIN(G) 

CG-COS(G) 

REM MATRIZ DE ROTACAO 

R1-WU*CG 

R2— WU*SG 

R3--XU 



Para representor uma figura em perspectiva, 
e precise transformer as coordenadas 
dos eixos tridimensionals (XI, VI, Zl) em 
pontos refcridos sos eixos da tela (X, V). 













IIIIIIIIIIMMH 




hh 


■■■■llllllllll 
















8170 R4--YU 
8190 B5--2U 
8190 R6=XV*XU+YV*YU+ZV*ZU 












y N 


* perspectiva ae>ea, os ires punios 






* de Fuga sao fixados sobre os 




8200 IF WU-0 THEN 8340 

8210 XT-XV*WU-(YV*YU+ZV*ZU)*XU/ 

wu 




lf\ eixos X, YeZ.A figura da ilustra^ao 
<\ \ parece deformada devidn 

\ a proximidade dos ponlos de fuga. 




8220 YT«(YV*ZU-ZV*YU)/WU 










6230 R7-(ZU*SG-XU*YU*CG)/WU 










8240 R8-(YU*SG-XU*ZU*CG)/WU 










8250 R9«CG*XT+SG*YT 










8260 S1«(2U*CG+XU*YU*SG)/WU 










8270 S2-(-YU«CG+XU*ZU*SG)/WU 










8280 S3— SG*XT+CG*YT 










83 30 RETURN 


/ ft ^^ 








8340 REM CASO ESPECIAL NO EIXO 

X 

8350 R7— 1 


/ / V 
















8360 R8-0 


If b 








8370 R9-0 


A— — __ / 








8380 Sl-0 


// / 


^B 






8390 S2-1 


■■ i i 








8400 S3-0 


/ / < ' r 

■ / if 








8410 RETURN 


/ / J^~. I 








8450 IF BOO THEN H-ATN (A/B) : RE 


/ / X'* ' 








TURN 


/ / s* 








SAbO H-PI/2 : RETURN 


/ 1/*' 




— " " X 




mw 


&000 XV - X:YV - YrZV - Z 










8010 wv - yv * yv + zv * zv 










9020 PV - SQR (XV * XV + WV) 


z 








8030 IF PV - THEN RETURN 
8035 WV - SQR (WV) 


















8040 XU - XV / PV 


B370 R9 - 


8240 


LET R8~(-YU*SG-XU*2U*<:fl) /W 


8050 YU - YV / PV J 


3380 Sl-0 


U 




8060 ZU » 2V / PV 


B390 32-1 


8250 


LET R9=CG*XT+SG*YT 


8070 WU - WV / PV i 


94Q0 3 3 - 


8260 


LET S1=(ZU*CG+XU*YU*SG)/WU 


8080 REM ORIENTACAO DO OLKO 


3410 RETURN 


8270 


LET S2=(-YU*CG+XU*ZU*SG)/W 


8090 A - XV * YV:B - ZV : GOSUB 


3450 IF B < > THEN H • 


• ATM U 




8450:0 - H 


(A / B) : RETURN 


3280 


LET S3--SG*XT+CG*YT 


8100 A - YV:B - XV: GOSUB 8450: 


9460 H-PI/2: RETURN 


8330 


RETURN 


a - o + h 




8350 


LET R7 — 1 


8110 SG - SIN (G) 




8360 


LET R8 = 


8120 CG - COS (G) 


83/0 


LET R9=0 


8130 REM MATRIX P.GTACAO 


B000 LET XV=X: LET YV=Y: LET 


LET S1=0 


8140 ftl - WU * CG 


*Z 


8390 


LET S2=l 


8150 R2 - - WU * SG 


B010 LET WV=YV*YV+ZV*ZV 


8400 


LET S3=0 


8160 R3 = - XU 


3020 LET PV=SQR (XV*XV+WV J 


8410 


RETURN 


8170 R4 - - YU 


8030 IF PU=0 THEN RETURN 


84 50 


IF BOO THEN LET H=ATN (A 


B1B0-R5 - - ZU 


3035 LET WV=SQR WV 


/B) : 


RETURN 


8190 R6 - XV * XU + YV * YU + Z 


3040 LET XU-XV/PV 


8460 


LET H-PI/2: RETURN 


V * ZU 

8200 IF WU » THEN 8340 


3050 LET YU=YV/PV 
B060 LET ZU-ZV/PV 






■ ■ 


8210 XT - XV * WU - (YV * YU + 


3070 LET WU=WV/PV 




ZV * ZU) * XU / WU 


3080 REM ORIENTACAO 


8000 


XV-X : YV-Y : ZV-2 


8220 YT ■ (YV * ZU - ZV * YU) / 


3090 LET A-XV*YV: LET B-ZV : GOS 8010 


WV-YV*YV+ZV*ZV 


WU 1 


JB 8450 : LET G-H 


8020 


PV-SOR (XV*XV+WV) 


B230 R7 - (ZU » SG - XU * YU * 


3100 LET A=YV: LET B=XV: GOSUB 8030 


IF PV-0 THEN RETURN 


CO) / WU 


3450: LET G-G+H 


8035 


WV-SQR(WV) 


B240 R8 • ( - YU * SG - XU * ZU 


3110 LET SG=SIN G 


B040 


XU-XV/PV 


« CO) / WU 


3120 LET CG=COS G 


8050 


YU-YV/PV 


8250 R9 - CG * XT + SG ■ YT 1 


3140 LET R.1=WU*CG 


8060 


ZU-ZV/PV 


8260 SI - (2U * CG + XU * YU * 


3150 LET R2=-WU*SG 


80 70 


WU-WV/PV 


SG) / WU 1 


3160 LET R3=-XU 


8080 


REM ORIENTACAO 


B270 32 - ( - YU * CG + XU * ZU 


3)70 LET R4=-YU 


8090 


A-XV*YV: B-ZV: GOSUB 8450 :G- 


* SG) / WU 


3180 LET R5--ZU 


H 




8280 33 - - SG * XT + CG * YT 


3190 LET R6=XV*XU+YV*YU+ZV*ZU 8100 


A-YV:B-XV: GOSUB 8450:G-G+H 


8330 RETURN 8200 IF WU=0 THEN GOTO 8340 8110 


SG-SIN(G) 


8340 REM CASO ESPECIAL NO EIX 8210 LET XT=XV*WU- (Y V*YU+ZV*ZU) 8120 


CG-COS(G) 


o-x 


*xu/uu 


8130 


REM ROTACAO DA MATRIZ 


8350 R7 - - 1 


3220 LET YT- (YV*ZU-ZV*YU) /UU 8140 


R1-WU*CG 1M 


B360 R8 - ■ 8230 LET R7= (ZU*SG-XU*YU*CG) /WU 8150 


R2--WU*SG 
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8160 R3 — XU 

8170 R4--YU 

8180 R5--ZU 

8190 R6-XV*XU+YV*YU+ZV*ZU 

8200 IF WU-0 THEN 8340 

8210 XT-XV*WU-<YV*YU+ZV*ZU)*XU/ 

WU 

8220 YT- (YV*ZU-ZV*YU)/WU 

8230 R7-(ZU*SG-XU*¥U*CG)/WU 

8240 R8-(-YU*SG~XU*ZU*CG)/WU 

8250 R9-CG*XT+SG*YT 

8260 S1-(ZU*CG+XU*YU*SG)/WU 

82 70 S2-<-YU*CO+XU*ZU*SG>/WU 

8280 S3--3Q*XT+CG*YT 

8 3 30 RETURN 

8 340 REM CASO ESPECIAL NO EIXO 

X 

B3S0 R7— 1 

8360 R8-0 

8370 R9-0 

8380 31-0 

8390 S2-1 

8400 S3-0 

8410 RETURN 

8450 IF BOO THEN H-ATN (A/B) EL 

SE H-PI/2 

8460 RETURN 

Para entendermos o que esta aconte- 
eendo, devemos nos lembrar que o eixo 
Z e aquele que sai do centro da tela e 
vem na direcao do observador; o eixo 
Y aponta para cima da tela e o eixo X, 
para os lados. 

A posicao dos olhos esta em (XV, 
YV, ZV). A variavel WV nos d£ a dis- 
tancia nas direcoes Y e Z combinadas. 
Defirtimos a origem em (ft, 0, 0) para a 
posicao do objeto que observamos no 
espaco. Para simpiificar, situamos essa 
posicao no centro da tela. A linha 8030 
interrompera a retina, caso a posicao 
dos olhos seja definida na origem. As 
variaveis XU, YU, ZU sao as dist&ncias, 
na direcao dos respectivos eixos (X, Y, 
X) de uma linha de comprimento uni- 
tario entre a origem e a posicao dos 
olhos. WU e a distancia nas direcoes Y 
e Z combinadas. 

Se movermos o objeto da esquerda 
para a direlta, nosso angulo de visao so- 
frera alteracoes. Esse angulo e medido 
a partir do eixo X e definido nas linhas 
809Oe81O0. Urn tested feito nas linhas 
8450 e 8460 para evitar divisoes por ze- 
ro, queinterromperiam o programs, ge- 
rando uma mensagem de erro. 

Quando olhamos diretamente ao Ion- 
go do eLxo X, temos uma visao comum 
do objeto, mas, se rodarmos nosso pan- 
to de observacao, o objeto tambem ro- 
dara, proporcionando angulos mais in- 
teressantes. As linhas 8140 a 8280 ini- 
cializam as variaveis que definem a 
orientacao da posicao do olho no espa- 
co. Essa posicao e tal que o seu eixo Z 
encontra-se ao longo da linha que vai do 
Iho ate a origem da tela. 

O resto da rotina inicializa variaveis 



para casos especiais; por exemplo, quan- 
go a posicao do olho estiver exatamen- 
le sobre o eixo X. 



AS TRANSFQRMACuES 



A proxima secao transforma as coor- 
denadas X, Y e Z do cubo nas coorde- 
nadas finais da tela. Essa transforma- 
cao leva em conta a posicao do olho e 
o efeito da perspectiva. 



ma 



B500 X1-T1*X+T4*Y+T7 

8510 Y1«T2*X+T5*Y+T8 

8520 Zi-T3*X+T6*Y+T9 

8530 REM 2-D PARA 3-D 

8540 X2-R1*X1+R?*Y1+R8*Z1+R9 

8550 Y2-R2*X1+S1*Y1+S2*Z1+S3 

8560 Z2=R3*X1+R4*Y1+R5*Z1+R6 

8570 REM OBJETO PARA OLHO 

B575 IF Z2<ZM THEN RETURN 

8580 X3-D*X2/Z2 

8590 Y3-D*YZ/Z2 

8600 RETURN 

[IE] 

8500 XI = Tl * 

8510 Yl = T2 * 

8520 Z] - T3 * 
8530 REM 2-D 

8540 X2 - Rl * 
8 * Zl + R9 

8550 Y2 - R2 * 
2 * Zl + S3 

8560 Z2 - R3 * 
5 * Zl + R6 



X + T4 * Y + T7 
X + TS * Y + T8 
X + T6 * Y + T9 

PARA 3-D 



XI + R7 



Yl + R 



XI + Si * Yl + S 
XI + R4 * Yl + R 



8575 


IF Z2 < ZN THEN RETURN 


8580 


X3 - D * X2 / Z2 


8590 


Y3 - - D * Y2 / Z2 


8600 


RETURN 


S 




esoo 


LET X1=T1*X+T4*Y+T7 


B510 


LET y.l = T2*X+T5*Y+T8 


8520 


LET Z1^T3*X+T6*Y+T9 



8540 LET X2=R1*X1+R7*Y1+R8*ZI+R 

9 

8550 LET Y2 = R2*X.I+S1*Y1+S2*Z1+S 

3 

8560 LET Z2-R3*X1+R4*Y1+B5*Z1+R 

6 

8575 IF Z2<ZN THEN RETURN 

8580 LET X.1=t)*X2/Z2 

8590 LET Y3=-D*Y2/Z2 

8600 RETURN 

Essa rotina usa uma matriz aritmeti- 
ca complicada para transforrnar as coor- 
denadas (X, Y), que sao basicamente os 
passos de transformacao descritos no ar- 
tigo anterior desta serie — Programa- 
cdo de Grdficos em 3-D (2). As linhas 
8500 a 8520 transformam o piano car- 
tesiano (X, Y) de duas dimensoes (2-D) 
no espaco de tres dimensoes (3-D) (X 1 , 
Yl, Zl). As linhas 8540a 8560 transfor- 




mam as coodernadas espaciais (XI , Yl, 
Zl), de modo a posiciona-Ias de acordo 
com a localizagao do olho e a direcao 
(X2, Y2, Z2). 

A linha 8575 testa se a nova posicao 
a ser encontrada esta excessivamente 
proxima do olho (ou seja, se Z2 esta en- 
tre e ZN) ou se esta situada atras dos 
olhos. Em ambos os casos, a posicao e 
ignorada, pois seria impossivel visuali- 
ze mos o objeto. Se a posicao estiver 
muito distante de ZN (a partir da posi- 
cao em f rente ao olho), entao a locali- 
zacao das coodernadas da tela (X3, Y3) 
sera calculada somente no fim da roti- 
na. O parametro D/Z2 nessas linhas 
acrescenta perspectiva a figura, proje- 
tando o objeto em uma tela plana a uma 
distancia definida I>. Se estabelecermos 
um valor pequeno para D, o efeito ob- 
tido sera uma perspectiva mais nitida 



PROGRAMACAO BASIC SI 




(como se a tela estivesse mais prdxima 
do usuario); se D for grande, a tela pa- 
recera estar a uma grande distancia do 
observador, de modo que o efeito de 
perspectiva sera pequeno e a imagem 
aparecera distorcida, mesmo quando 
vista obliquamente, de qualquer 
direcao. 



COMO INICIAUZAR AS VAHIAVEIS 



O pr6ximo passo sera reescrever as 
Rotinas de Inicializacao e Desenho pa- 
ra podermos usar as novas rotinas de 
transformacao. 



9030 XD-XH/2:YD-YM/2 

9040 ZN-1 

9042 CLS: INPUT"Distancia do pi a 

no de proiegao: " ; R 

9045 IF D<0 THEN D-1000*ZN 

9050 T1=1:T2-Q:T3-Q 

9060 T4-0:T5-1:T6-0 

9070 T7-0:T8-0:T9-0 

9085 CLS 

9090 RETURN 

9500 X-XS: Y-YS:GOSUB 8500: IF ZZ 

<ZN THEN 9520 

9S10 IX-l28+X3:IY-97-Y3 

9520 X-XE:Y=YE:GOSUB 8500 : IF Z2 

<ZN THEN 9550 

9530 LINE(127+X3.95-Y3) -(IX f IY) 

.15 

9550 RETURN 



9030 


XO ■ 


" XM / 


2: YD - YH / 


2 


9040 


ZN • 


■ 1 










9042 


INPUT 


■DISTANCIA 


10 


PLANO 


DE PROJECAO ■ ; 


D 






9045 


IF 


D < 


THEN D - 


1000 


ZN 














9050 


TI =■ I 


T2 


- 0:T3 - 







9060 


T4 ■ 


■ 


T5 


- 1:T6 - 







9070 


T7 ■ 


■ 


TB 


- 0:T9 - 







9090 


HOME 


RETURN 






9500 


X - 


XS 


Y - 


YS: COSUB 


9500: 


IF Z2 < 


ZN 


THEN 9520 






9505 


IF 


X3 


< 


- 139 OR 


Y3 


< - 


95 OR X3 > 


140 


OB Y3 > 


96 


THEN 


9550 












9510 


IX ■ 


■ 139 •• 


X3;IY - 


95 


+ Y3 



m 



[IE] 



9000 CLS 

9020 XM=256:YM=192 



9000 HOME 

9020 XM - 280 : YM 



192 



9520 X - XE:Y - YE: G03UB 8500: 

IF 22 < ZN THEN 9550 
9525 IF X3 < - 139 OR Y3 < - 

95 OR X3 > 140 OR Y3 > 96 THEN 

9550 
9530 HPLOT 139 + X3.9S + Y3 TO 






IX.IY 
9550 RETURN 



900 CLS 

S020 LET XM-256: LET YM-176 

9030 LET XD=XM/2: LET YD-Y-M/2 

9040 LET ZN=l 

904 2 TNPtJT "IMTRODUZA DTSTANCTA 

AO PLANO DE PROJECAO",D 
9045 IF D<=0 THEN LET D=1000*Z 
N 

9050 LET TW: LET T2 = 0: LET T3 
-0 

9060 LET T4-0: LET TS-l : LET T6 
-0 

9070 LET T7=0: LET T8 = 0: LET T9 
= 

9090 CLS : RETURN 
9500 LET X-XS; LET Y = YS : GOSUB 
8500: TF Z2<ZN THEN GOTO 9520 
9505 IF XK-1.27 OR Y3<-87 OR X3 
>128 OR Y3>8B THEN GOTO 9550 
9510 PLOT 127+X3.87+Y3 
9S20 LET X=XE: LET V=YE: GOSUB 
8500: TF Z2<ZN THEN GOTO 9550 
9525 IF XK-127 OR Y3<-87 OR X3 
>128 OR Y3>8R THEN GOTO 9550 
9530 DRAW 127+X3-PEEK 23677,87+ 
Y3-PEEK 23678 
9550 RETURN 

D 

9000 PCLS 

9020 XM-256:YM-192 

9030 XD-XM/2:YD-YH/2 

9040 ZN-1 

9042 CL8 : INPUT " INTRODUZA A DI 

STANCIA AO PLANO DE PRO J EC AO ■ 

;D 

9045 IF D-C-0 THEN D»1000*ZN 

9050 Tl-l:T2-0:T3-0 

9060 T4-0:T5-1:T6-0 

9070 T7-0:T8-0:T9-0 

9095 CLS 

9090 RETURN 

9500 X-X8:Y-Y3: GOSUB 8S0O:IF Z2 

<ZN THEN 9520 

9505 IF X3<-127 OR Y3<-96 OR X3 

>128 OR Y3>9S THEN 9550 

9510 DRAW*BM-*STn$ (INT U 27+X3)) 

+• . •+STR3 (INT (95-Y3) } 

9520 X-XErY-YE: GOSUB 8500:IF Z2 

<ZN THEN 9550 

9525 IF X3<-127 OH Y3<-96 OR X3 

>128 OR Y3>95 THEN 9550 

9530 LINE -U27+X3.95-Y3) , PSET 

9550 RETURN 

A linha 9020 atribui &s variaveis XM 
e YM as dimensoes maximas da tela nas 
direcoes X e Y, respectivamente. A li- 
nha 9030 calcula o ponto medio; a 9040 
caicula a posicao mais prOxima permi- 
tida nos pontos a serem desenhados, 
conforme a posicao do olho. 

A variavel D nos d& a distancia atual 
da posicao do olho ate o piano de pro- 
jecao (a tela) e determina a perspectiva. 
Os valores de D sao inseridos quando 



rodamos o programa, de modo que po- 
demos variar o grau da perspectiva. Se 
nenhum valor for especificado e pressio- 
narmos ENTER ou RETURN a linha 
9045 adotara o valor 1000. As linhas 
9050 a 9070 atribuem valores para as 
constantes de transformacao, especifi- 
cando o piano no qual sera desenhada 
a imagem era perspectiva. 

Esse trecho do programa continua 
com a Rotina de Desenho revisada. Na 
linha 9500, sao inicializadas as variaveis 
para as constantes de transformacao; 
nas linhas 9505 e 9525 e feito um teste 
para determinar se o novo ponto a ser 
desenhado (linhas 9510 e 9530) esta den- 
tro dos limites da tela. O MSX nao pre- 
cisa desse teste, pois e!e ignora os pon- 
tos fora da tela. Nos outros micros, o 
teste serve para prevenir contra mensa- 
gens de erro. 



CHAME A ROTINA 



Precisaremos agora da rotina para 
desenhar a grade fornecida no primeiro 
artigo da serie, Caso voce nao a tenha 
gravado, digite-a antes de inserir esta 
parte final do programa. 



Wi 



1220 


RETURN 






* 


HJL3] 


100 1 


?I - 4 


* ATN (1) 






110 


GOSUB 


9000 






120 I 


- ■ 20: 


N - 5 






125 


GOSUB 


505: GOTO 140 




130 


GOSUB 


500 






140 


IF X - 


AND Y - 


AND Z 


- 


THEN 170 








150 


GOSUB 


1000 






160 


GOTO 130 






170 


HOME 








180 


TEXT : 


END 






500 



505 


GET T$ 


: IF T$ - " 


• THEN 


50 


TEXT : 


HOME 






510 


INPUT 


"POSICAO DO 


OBSERVAD 


OR (X.Y.Z) 


"iX.Y.Z 






520 


GOSUB 


8000 






530 


HGR2 : 


HCOLOR- 3 






540 


RETURfc 


1 






1000 


P - L 


/ 2 






1010 


Tl - 1 


:T2 ■ 0:T3 


= 




1020 


T4 - C 


>:T5 - 1:T6 


- 




1030 
- P 
1040 


T7 - 


- P:T8 - - 


P:T9 - 




GOSUB 1200: REM 


BAIXO 




1050 


T7 - 


- P:T8 - - 


P:T9 - 


P 



100 PI-4*ATN(1> 

110 GOSUB 9000 

120 L-20:N-5 

125 GOSUB 505:GOTO 140 

130 GOSUB 500 

140 IF X-0 AND Y-Q AND Z-0 THEN 

170 
150 GOSUB 1000 
160 GOTO 130 
170 CLS 
180 END 

50O IF INKEYS-"" THEN 500 
505 CLS 
510 INPUT"Poaic5o do obeervador 

(X.Y.Z) : ";X,Y.Z 
520 GOSUB 8000 
530 CLS: SCREEN 2 
540 RETURN 
1000 P-L/2 
1010 Tl-1 :T2-0 :T3-0 
1020 T4-0:T5-1 :T6=>0 
1030 T7=-P ; T8»-P:T9»-P 
1040 GOSUB 1200 'BAIXO 
1050 T7°-P:T8--P:T9-P 
1060 GOSUB 1200 'CIMA 
1070 T4»0:T5-Q:T6--1 
1080 GOSUB 1200 ' ESQUERDA 
1090 T7— P:T8-P:T9-P 
1100 GOSUB 1200 'DIREITA 
1110 T1=0:T2«-1 :T3-0 
1120 GOSUB 1200 'TRAS 
1130 T7-P:T8"P:T9-P 
1140 GOSUB 1200 'FRENTE 
1170 RETURN 
1200 XA=0:YA=O:LW-L:LH-L:NX-N:N 

Y-N 

1210 GOSUB 5000 



1060 GOSUB 1200: REM CIMA 
1070 T4 - 0:T5 - : T6 - - 1 
1080 GOSUB 1200: REM ESQUERDA 



1090 T7 



- PrTB 



P:T9 



1100 GOSUB 1200: REM DIREITA 
1110 Tl - 0:T2 - - 1:T3 - 
1120 GOSUB 1200: REM TRAS 
1130 T7 - P:T8 » P:T9 - P 
1140 GOSUB 1200 REM FRENTE 
1170 RETURN 

1200 XA - 0:YA - : LW • L : LH - 
L:NX - N:NY - N 
1210 GOSUB 5000 
1220 RETURN 



110 GOSUB 9000 

170 LET E.-20: LET N= 3 

125 GOSUB 505: GOTO 140 

130 GOSUB 500 

140 IF X=0 AND Y=0 AND Z=0 

THEN GOTO 170 

150 GOSUB 1000 

160 GOTO 130 

170 CLS 

180 STOP 

500 IF INKEYS-"" THEN GOTO 
500 

505 CLS 

510 INPUT "INTRODUZA POSICAO D 

O OBSEBUADOR (X,y.Z)",X,Y,2 

520 GOSUB 8000 

5 30 RETURN 
100 LET P=L/2 

1010 LET Tl»l! LET T2=0: LET T3 
= 

1020 LET T4 = 0: LET T5=l: LET T6 
= 

1030 LET T7=-P: LET TB— 'P: LET 
T9 = -P 



1040 GOSUB 1,200: REM BA1XO 

3050 IET T7--P: LET TB=-p: LET 

T9=P 

1060 GOSUB 1200: HEM C.TMA 

10 70 LET T4-0: LET T5-0 : LET T6 

= -l 

1080 GOSUB .1.200: HEM ESQUERDA 

1C<?0 LET T7=-P: LET T8 = P : LET T 

9=P 

1100 GOSUB 1200: REM DTRETTA 

1110 LET T1=0: LET T2=-l : LET T 

3-0 

1120 GOSUB 1200: BEM TRAS 

1130 LET T7=P: LET T8 = P : LET T9 

-P 

1140 GOSUB 1200: REM FRENTE 

1170 RETURN 

1200 LET XA=0r LET YA-0 : LET LW 

=L: LET LH=L: LET NX = N : LET NY= 

H 

1210 GOSUB 5000 

1220 RETURN 



■ I 



100 PI-4*ATNU) :PHODE 4,1 

110 GOSUB 9000 

120 L-20:N-5 

125 GOSUB SOS: GOTO 140 

130 GOSUB 500 

140 IF X-0 AND Y-0 AND Z-0 THEN 

170 
ISO GOSUB 1000 
160 GOTO 130 
170 CLS 
180 END 

500 IF INKEY3-" THEN 500 
505 CLS 

510 INPUT" INTRODUZA A POSICAO 
DO OBSERUA- DOR <X,Y,Z) " ; X , Y , Z 
520 GOSUB 8O00 
530 PCLS: SCREEN 1,1 
540 RETURN 
1000 P-L/2 
1010 Tl-l:T2-0:T3-0 
1020 T4-0:T5-1:T6-0 
1030 T7— P;T8— P:T9--P 
1040 GOSUB 1200 'BAIXO 
1050 T7 — P:T8— P:T9-P 
1060 GOSUB 1200 'CIMA 
1070 T4-0:T5-0:T6--1 
1080 GOSUB 1200 'ESQUERDA 
1090 T7--P:T8-P:T9-P 
1100 GOSUB 1200 'DIREITA 
1110 T1-0:T2— 1:T3-Q 
1120 GOSUB 1200 'ATRAS 
1130 T7-P:T8-P:T9-P 
1140 GOSUB 1200 'FRENTE 
1170 RETURN 

1200 XA-0:YA-0:LW-L:LH-L:NX-N:N 
Y-N 

1210 GOSUB 5000 
1220 RETURN 

Agora, rode o programa. Se ele esti- 
ver funcionando corretamente, o com- 
putador acessara a rotina tic iniciali/.a- 
<;ao que comeca na linha 1 10. Essa reti- 
na inicializa algumas variaveis e impri- 
me uma mensagem que pede urn valor 
para D, a distancia do piano de proje- 
ciSo, A perspectiva nesse programa e" fei- 




ta de tat maneira que, quanto maior a 
distancia, mass afastado aparecera o ob- 
jeto. Devemos entrar com o valor 1000 
para comecar. O programa retorna pa- 
ra a linha 120, que especifica o compri- 
mento (L) de cada lado do cubo, e o nii- 
mero de grades quadradas (N) ao iongo 
de cada lado. As tinhas 130 a 160 leem 
as coordenadas da posicao do olho (li- 
nha 510), e desenham o cubo a partir 
dessa posicao. Assim que obtivermos a 
primeira imagem do objeto desenhado, 
podemos digitar um novo conjumo de 
coordenadas e ver o cubo por um outro 
angulo, Quando entramos os valores 0, 
e 0, o programa lermina. A rotina das 
linhas 500 a 530 chama a rotina de po- 
sicao (linha 120) para inicializar as cons- 
umes de transformacao. A rotina do 
Cubo (linhas 1000 a 1170) posiciona e 
desenha cada um dos seis lados, A roti- 
na Lado (linhas 1200 a 1220) desenha ca- 
da lado como uma grade, usando a Ro- 
tina da Grade. 

Tente valores diferentes para a posicao 
do olho e estude os efeitos decorrentes. 
O valor 1000 para D e 250, e para X, 
Y e Z sao bons para comecar. Depois, 
adote 100 para D e 25,0 e para X, Y e 



Z. O cubo deveri aparecer do mesmo ta- 
manho, mas a perspectiva sera muito 
mais pronunciada. Para digitar novos 
valores para X, Y e Z devemos pressio- 
nar qualquer tecla e a mensagem apare- 
cera. Para atribuir novos valores a D, 
interrompa o programa com < BREAK > 
ou < RESET > e rode-o novamente. 
Uma mensagem aparecera para D, se- 
guida de outra para X, Y e Z. 

Como o programa ignora eventuais 
erros ocasionados por pantos fora da te- 
la, os resuitados podem ser bastante es- 
tranhos (neste caso, uma linha inteira e 
omitida, mesmo quando apenas uma de 
suas extremidades excede o ponto ma- 
ximo permitido). Para pontos mais pr6- 
ximos do que uma certa distancia mini- 
ma e pontos localizados amis do olho, 
ZN sera ignorado. Dessa maneira, se a 
posicao do olho estiver muito prdxima, 
ou mesmo dentro do cubo, poderao 
ocorrer Talsos resuitados. 

Finalmente, e aconselhavel guardar 
uma copia da listagem completa em fi- 
ta ou disco, de modo a usar as mesmas 
rotinas para desenhar formas duplica- 
das e produzir graficos circulares em fu- 
turos programas. 
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C1EU 



IMPH 





Ao contrario das maquinas de escrever, 
sempre prontas para serem 
operadas, as impressoras s6 podem ser 
usadas com urn computador depots 
que certas condicoes sio satisfeitas. 



Se voce leu Como Escolher uma Irn- 
pressora (pagina 521), ja sabe como agir 
para adquirir um desses perifericos. 

Dependendo da marca e do modelo 
do micro, alem da impressora, voce pre* 
cisara provavelmente de uma interface 
que a compatibilize com ele. 

Mas adquirir uma impressora e sua 
respective interface pode nao resolver 
todos os problemas. Com efeito, mui- 
tos usuarios descobrem, apds a cornpra, 
que ainda precisam de um bom tempo 
para ligar o novo periferico^e t'aze-Io 
funcionar de modo flueme. E que isso 
exige informacoes complemenlares so- 
bre quais sao os codigos de controle ade- 
quados, como envia-los a impressora e 
como trabalhar com todas aquelas fun- 
cdes especiais, que pareciam prometer 
tanto e que o fizeram sair de casa e ad- 
quirir a impressora. 

Neste artigo, tentaremos esclarecer 
alguns dos pontos ainda obscuros e 
orienta-lo no sentido de resolver as di- 
ficuldades mats comuns que surgem pa- 
ra aqueies que desejam se equipar com 
uma dessas maquinas. 



COMO AJUSTAR A IMPRESSORA 



Suponhamos que voce ja 
adquiriu uma impressora, 
que a conectou a tomada, 
e que esta agora no pon- 
to em que nao sabe co 
mo f'a/cr para colo 
caf tudo aquilo em 
funcionamento. .. 

O primeiro 
conselho e: nao li- 
gue ainda o peri- 
ferico. Existem 
uma ou duas coi- 
sas que voce de- 
ve fazer primei- 
ro; para muitas 
impressoras, o mais 
importante de tudo e 
a remocao do parat'u- 
so de fixacao para 
transporte (usado para imobilizar a ma- 
quina quando ela e levada de um lugar 
para outro). 

Algumas impressoras nao tern meca- 
nismo de proteeao para transporte; por- 
tanio, verifique com bastante atencao o 
manual de instrucoes do fabricante. Ge- 
ralmente, existem dois ou ires parafu- 




sos, que podem ser auxiliados por elis- 
ticos ou fitas adesivas. Estes devem ser 
removidos cuidadosamente, pois as ul- 
timas coisas de que voce vai necessitar 
quando estiver imprimindo serao elas- 
ticos e fitas adesivas. Quanto aos para- 
fusos, mantenha-os a mao: voce talvez 
precise reutiliza-los em case de transpor- 
te da impressora. 
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COMO AJUSTAR A IMPRESSORA 



QUE PAPEL USAR 

TESTE A IMPRESSORA 

A CONEXAO COM COMPUTADOR 



COMO FAZER CONTROLE 



AS OPCOES D E W- 

SPECJAIS 

cOdigos de e s: 
l1gue zx-81 e spectrum 
impressoras 00 futuro 




L'ma vez destravado o aparelhi 
>de liga-lo. O botao para is 
mente esta em uma das I, U na 

parte traseira da maquina. 

Mukas impressoras dispdem de uma 
pequena luz, vermelha ou verde, d 
nada a avisar se a fonte esta ligada. Mas, 
ainda queeia nao seja provide de h 
voce prova\elmente percebera o peque- 
no movimento que a cabeca de impres- 
sao realiza para ajustar-se. Certos mo- 
delos avisam quando o papet nao esta 
colocado e ajustado corretamente, por 
meio da emissao de urn alarma sonoro 
ou outro sinal qualquer. 

Se a impressora nao funcionar na pri- 
metra tentativa, nao se desespere: pode 
ser alguma coisa tao simples como um 
fio soito. Se, ao contrario, e!a funcio- 
nar (o que e, alias, muito mais prova- 
vel), desligue-a novamente e coloque o 
papel (e a fita impressora, caso isto se- 
ja necessario). 



PAPEL 



Ha dois tipos basicos de impressora 
quanto ao tipo de papel usado: as que 
empregam formularios continuos (papel 
dobrado em z, com perfuracoes nas 
margens) e as que utilizam folhas Sottas 
ou papel alimentado por bobinas. As 
maquinas mais versateis — como as 
compativeis com a linha Epson — acei- 
tam os dois tipos de papel. Impressoras 



termicas e eleirostalicas requerem papel 
especial c em gcral sao maqun 

,is para deierminadas raarcas de 
computador. 

Se voce puder escolher, nao u 
pel muito lino ou excessivamente gros- 
so. E, quando for ajusta-lo na impres- 

. \ critique primeiro se ele i 
frouxo ou demasiado tenso, pois a aius- 
tc incorreto pode provocar rompimen- 
tos no papel ou leva-lo a enredar-se no 
mecanismo. 



AUTOTESTE 



No caso de sua impressora dispnr de 
recursos para um autoteste, e conveniens 
te aciona-!os assim que ela estiver pronta 
para trabalhar. Esse tipo de venficacao 
consiste em irnprimir mirtterruptamen- 
te um conjunto completo de caractei 
Ele serve para dois propositos; primei- 
ro. mostrar que a impressora esta fun- 
cionando independentemente do com- 
putador; segundo, para exibir o conjun- 
to de caracteres dispom'veis no peri- 
ferico, 

Nas impressoras de tipo mais co- 
mum, o autoteste e acionado quando se 
pressiona o botao de avanco de linha ou 
de formulario. 

Para parar o autoteste, basta desligar 
a impressora. (Algumas maquinas dis- 
pdem de um botao especial para acio- 
nar o autoteste,) 




Mtnos que a sua ii 
teVmica ou i ; 
mente precisara de uma fita d 

■stuman: 
em cartuchos descarta\ si; 
cil troca-Ias (consulte ante ama 

.■nte no manual da impressora). Um 
pequeno botao na pane de cima do 
tucho da fita serve para dar a ela a ten- 
sao adequada. 



A CONEXAO AO COMPUTADOR 



A ultima e mais important etapa 
dessa seqtiencia g a ligacao da impres- 
sora ao computador. Em muitos casos 
isso e tao simples quamo inserir o cabo 
de conexao no soquete correto: essa e a 
rorma de ligacao das impressoras que 
usam o padrao Centronics (paraleio). 
Freqiiememente, como acomece com o 
TK-2000 e com o MSX, existe um co- 
necior claramente reservado para a im- 
pressora. Nos computadores da linha 
Sinclair (ZX-81 e Spectrum), e necessa- 
rio uma interface especial, que e conec- 
tada no mesmo ponto destinado a ligar 
outros tipos de expansao (memoria, sin- 
tetizadores de voz etc.). Nesse caso, e 
preciso, quase sempre, desligar uma ex- 
pansao ja existente, para poder colocar 
a interface da impressora, a nao ser que 
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voce" tenha comprado uma interface com 
urn conector adicional de expansao. Es- 
se sistema e" conhecido como "encadea- 
mento em margarida" e deve ser feito 
com certa precaucao. 

Se voce vai adquirir uma impressora 
que nao e especi'fica para o seu compu- 
tador, deve tomar alguns cuidados. Se 
o seu micro e urn MSX, ou um TK-2000, 
por exemplo, a impressora deve ser, 
obrigatoriamente, do tipo paralelo, pa- 
drao Centronics (a rnaioria das impres- 
soras mais populares, como a Monica, 
a Grafix e outras compativeis com os 
modelos Epson e Seikosha tem esse pa- 
drao), Os micros da linha Apple podem 
trabalhar tanto com impressoras para- 
lelas como com as serials, que usam o 
padrao RS-232C, dependendo da inter- 
face que se vai utilizar. Ja os micros 
compativeis com o TRS-Color usam 
apenas impressoras serials. 

Ao conectar o cabo, voce notara que 
a maioria das impressoras tem soquetes 
que impedem uma ligacao em posicao 
invertida. Isso nao ocorre com a impres- 
sora para os micros da linha TRS-80 
(por exemplo, o CP-500), que aceitam 
o soquete em qualquer posicao. 

Se voce quiser conectar uma impres- 
sora de fabricante independente nos mi- 
cros da linha Sinclair (Spectrum e 
ZX-81), precisara adquirir uma interface 
especial. As interfaces para tais micros 
existentes no mercado nacional devem 
ser ligadas a impressoras paralelas com 
o padrao Centronics. 

Em alguns casos, a interface s6 fun- 
ciona quando o computador e carrega- 
do com um programa especifico para is- 
so. Entretanto, uma vez que voce tenha 
uma, podera ligar praticamente qual- 
quer impressora ao seu computador. As 
melhores interfaces sao oferecidas pelos 
proprios fabricanies de micros, mas 
mesmo assim e bom faze-las funcionar 
antes de adquiri-las. 



COMANDOS OE CONTROLE 



Qualquer coisa a ser impressa tem 
que ser enviada primeiro pelo compu- 
tador a impressora, atraves do cabo de 
conexao. Os comandos usados para 
controtar a impressora variam de com- 
putador para computador, e em geral 
consistem de algumas instrucoes 
simples. 



O Spectrum e o ZX-81 se comunicam 

com a impressora por comandos simples 

em BASIC, de facil manipulacao. O co- 

* mando LPRINT tem um efeito similar 



ao PRINT; com ele, porem, a saida vai 
para a impressora e nao para a tela. No 
ZX-81, todas as regras do PRINT va- 
lem tambem para o LPRINT. No Spec- 
trum, entretanto, nao se tem a mesma 
liberdade de especificar o tipo de im- 
pressao, como se faz com o comando 
PRINT. Por exemplo, nao e possivel 
utilizar os comandos PAPER, INK, 
OVER, FLASH e BRIGHT. O INVER- 
SE so funciona em certos tipos de im- 
pressoras graficas. O mesmo acontece 
com os caracteres graficos que podem 
ser colocados dentro de um PRINT, 
tanto no ZX-81 quanto no Spectrum (as 
impressoras nao especificas para tais mi- 
cros nao dispoem desses caracteres no 
seu conjunto de impressao). O PRINT 
AT tambem nao funciona na im- 
pressora. 

Assim como o comando PRINT e 
substituido por LPRINT, o LIST da lu- 
gar a LLIST, que lista o programa da 
memoria na impressora. Quando a lis- 
tagem ocupar mais de uma tela, LLIST 
gerara uma impressao continua, inde- 
pendentemente do tamanho do 
programa. 

O terceiro comando BASIC usado 
para acionar a impressora e o COPY. 
Ele copia o que esttver na tela por um 
processo denominado descarregamento 
de tela. Quando a impressora e utiliza- 
da para produzir pontes em vez de le- 
tras e chamada de impressora grafica. 
Voce pode trabalhar com o COPY pa- 
ra fazer uma c6pia da tela contendo os 
resultados de um texto ou de uma lista- 
gem de programa em qualquer tipo de 
impressora. A copia de lelas graficas 
funcionara apenas se a impressora for 
especi'fica para o seu computador (uma 
impressora grafica, portanto). 

O TK-90X emprega uma interface 
paralela, propria para acionar uma im- 
pressora e que exige o carregamento pre- 
vio de um programa de controle (dri- 
ver). Esse programa e vendido em con- 
junto com a interface, com um cabo de 
conexao e com um manual de instru- 
coes. O software s6 precisa ser carrega- 
do uma vez ao se ligar o computador. 
Mas, sempre que este for desligado, se- 
ra preciso carrega-lo novamente. O soft- 
ware permtte a utilizacao dos comandos 
LPRINT, LLIST e COPY. 

Ja os micros da linha ZX-8 1 , como 
o TK-85, requerem tambem uma inter- 
face paralela; mas nao e preciso carre- 
gar um software de controle para usar 
diretamente os comandos citados. 
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Os micros da linha Apple podem ser 
conectados tanto a impressoras seriais 



como a impressoras paralelas. Para is- 
so, e necessario adquirir separadamen- 
te a interface adequada de controle; esta 
deve ser encaixada em um dos soquetes 
internes do console do computador. De 
forma geral, costuma-se dar preferencia 
a interface paralela, uma vez que e 
maior o mimero de impressoras que se- 
guem esse padrao. 

A impressora e tratada, pelo BASIC 
e pelo sistema operacional, como um 
dispositivo de saida que recebe o mime- 
ro logico correspondente ao soquete no 
qual foi inserida a placa de controle. As- 
sim, se encaixarmos a placa no soquete 
1 (a localizacao mais comum) e quiser- 
mos ativar a impressora, e necessario di- 
gitar o comando em BASIC: 

PRtl 

A partir desse momento, lodo 
PRINT ou LIST que for digitado em 
modo direto, ou encontrado dentro de 
um programa, (era sua saida direciona- 
da tanto para a tela quanto para a im- 
pressora (modo eco). Portanto, o PR 
pode ser colocado em pontos seleciona* 
dos de um programa, para "ligar" e 
"desligar" o eco na impressora. 

Os micros da linha Apple nao dis- 
poem, como os de outras linhas, de co- 
mandos especificas para a impressora, 
como LLIST, LPRINT etc. Por moti- 
vos obvios, os comandos de posiciona- 
mento do cursor, como HTAB e VTAB 
nao funcionam com a impressora. 

m 

A interface de comunicacao adequa- 
da aos micros da linha MSX e do tipo 
paralela padrao Centronics. Tanto ela 
quanto o conector para o cabo de liga- 
cao ja estao incluidos na configuracao 
basics da maquina. 

Existem tres protocolos de impressao 
(conjuntos de caracteres de impressao 
diferentes) para micros da linha MSX. 
O primeiro padrao e o MSX Internacio- 
nal , que segue a tabela de caracteres AS- 
CII especiais e graficos do padrao MSX 
original . Esse padrao e seguido por mais 
de trinta fabricantes de todo o mundo. 
O segundo e o ABICOMP (Associa?ao 
Brasiieira de Industrias de Computado- 
res): ele segue normas nacionais, que in- 
cluem os caracteres acentuados da lin- 
gua portuguesa. Finalmente, temos um 
terceiro protocolo, criado no Brasil pe- 
la Gradiente para os primeiros modelos 
do Expert MSX. Ao se adquirir uma im- 
pressora, e necessario especificar qual o 
padrao seguido pelo micro; caso contra- 
rio, a impressora nao funcionara corre- 
tamente. 

Os comandos usados com o BASIC 



para o controle da impressora sao tam- 
bem bastante simples e diretos. 

O comando LPRINT tem um efeito 
similar ao PRINT; com ele, porem, a 
saida vai para a impressora e nao para 
a tela. Todas as regras de sintaxe que va- 
lem para o PRINT servem para o 
LPRINT, inclusive quando se trata do 
emprego de TAB e USING. Entretan- 
to, os comandos de especificacao de co- 
res (como o COLOR) e os de localiza- 
cao bidimensional do cursor (como o 
LOCATE) nao funcionam na impresso- 
ra. O mesmo acontece com os caracte- 
res graficos e especiais que podem ser 
colocados dentro de um PRINT, uma 
vez que impressoras nao especificas pa- 
ra esse micro nao dispoem desses carac- 
teres no seu conjunto de impressao. 

Assim como o comando PRINT e 
substituido por LPRINT, o comando 
LIST e substituido por LLIST, que lis- 
ta o programa da memoria na impres- 
sora. Quando a listagem tomar mais de 
uma tela, LLIST gerara uma impressao 
continua independentemente do tama- 
nho do programa. As regras de utiliza- 
cao do LIST valem para o LLIST. Ou- 
tra funcao util, de uso exclusivo da im- 
pressora, e a LPOS, que informa ao 
programa a posigao Idgica da cabeca de 
impressao, em rtumero de colunas a par- 
tir da margem esquerda de uma linha. 
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Tambem nos micros da linha TRS-80 
a interface de comunicacao e do tipo pa- 
ralela padrao Centronics, e ela e o co- 
nector para o cabo de ligacao incluem- 
se na eonfiguracao basicadas maquinas 
mais completas, como o CP-500. 

Os comandos usados com o BASIC 
para o controle da impressora sao sim- 
ples e diretos, O LPRINT tem um efei- 
to similar ao PRINT, embora direcione 
a saida para a impressora e nao para a 
tela. Todas as regras de sintaxe do 
PRINT vaiem para o LPRINT ( o que 
inclui as expressoes TAB e USING). 
Entretanto, os comandos de locali- 
zacao bidimensional do cursor 
como PRINT@ nao funcionam 
com a impressora. O mesmo se 
da com os caracieres graficos e 
especiais que podem ser coloca- 
dos dentro de um PRINT, ja 
que impressoras nao especificas 
para o TRS-80 nao tem esses si- 
nais no seu conjunto de im- 
pressao. 

Assim como o comando PRINT 
lugar a LPRINT, o LIST e substituido 
por LLIST, que lista o programa da me- 
moria na impressora. Se a listagem to- 
mar mats de uma tela, LLIST gerara 
uma impressao continua independente- 



mente do tamanho do programa. As re- 
gras do LIST valem para o LLIST. 

Outra funcao util, de uso exclusivo 
da impressora, e a LPOS, que informa 
o programa a respeito da posicao 16gi- 
ca da cabeca de impressao, em numero 
de colunas a partir da margem esquerda. 

D 

Os micros da linha TRS-Color dis- 
poem s6 de uma porta serial para comu- 
nicacao com perifericos, que e a usada 
para conexao com a impressora. Mes- 
mo assim, o controle da impressao (fei- 
ta por alguns comandos do BASIC) nes- 
ses micros tambem e simples. Para lis- 
lar um programa digite LLIST (segui- 
do por <ENTER>). Todas as regras 
do LIST valem para o LLIST, so que 
a saida vai para a impressora, e nao pa- 
ra a tela, Para usar PRINT com a im- 
pressora, e precise digitar a expressao: 

PRINTI-2, "TEXTO" 

Ela determina ao computador que 
envie sua saida (aqui a palavra TEXTO) 



ao perifeTico -2, que e o numero de iden- 
tificacao para a impressora (mais exa- 
tamente, para a interface serial). Repa- 
re que ha uma virgula apos o -2 no co- 
mando acima. Ela informa ao compu- 
tador que a seguir vem um texto para 
ser impresso. Alem disso, se usado com 
impressoras capazes de imprimir letras 
mintisculas, o texto que esta em video 
inverso na tela aparecera em minuscu- 
las na impressora (e necessario pressio- 
nar < SHIFT ><0> antes). 

Assim, o comando PRINT* -2 tem 
um efeito similar ao PRINT (com uma 
diferenca: ele determina que a saida va 
para a impressora, e nao para a tela). 
As regras de sintaxe do PRINT valem 
para o PRINT #-2, inclusive quando 
aparecem as expressoes TAB e USING. 
Porem, os comandos de especificacao de 
cores, e de localizacao bidimensionai do 
cursor, como PRINT® , nao funcionam 
com a impressora. O mesmo se da com 
os caracteres graficos e especiais que po- 
dem ser colocados dentro de um 




PRINT, pois as impressoras nao espe- 
cificas para a TRS-Color nao tern esses 
sinais em seu conjunto de impressao. 
Outra funeao de uso exclusive da im- 
pressora e a POST (-2): informa a posi- 
eao ldgica da cabeca de impressao, em 
niimero de colunas a partir da margem 
esquerda de uma linha. 



PROGRAMACAO INTERNA DA IMPRESSORA 



Quern deseja dominar os segredos do 
trabalho com impressoras precisa co- 
nhecer primeiro como se faz sua progra- 
macao interna e externa. A programa- 
cao interna e feila normalmente por 
meio de microinterruptores (os DIP) e 
flos removiveis de conexao (os estrapes), 
situados na placa interna da maquina. 
Ja a externa e realizada atraves de se- 
qiiencias de caracteres de controle ( deno- 
minados seqiiencias de escape por come- 
carem com o c6digo ASCII 27, corres- 
pondendo ao caractere de controle cha- 
mado ESCAPE). 

Dentro das impressoras e de outros 
equipamentos eletrdnicos, voce encon- 
trara um conjunto de pequenas chaves: 
as chaves DIP. Elas podem ser usadas 
para alterar o estado da impressora, 
quando ela for ligada (o estado default, 
ou predefinido). Sao comumente inicia- 
lizados por chave o comprimento da li- 
nha, o espacejamento, o retorno do car- 
ro e o comprimento da pagina. As im- 
pressoras de tecnologia japonesa permi- 
tem ainda que voce selecione o conjun- 
to de caracteres internacionais de que 
precisa (exemplo: o sinal da libra ester- 
lina, ou acentos para certos caracteres, 
empregados em idiomas como francos, 
sueco e portugues). 

Para encontrar os interruptores de 
programacao interna, consuite o manual 
da impressora: em geral, eles estao lo- 
calizados sob a tampa da impressora (es- 
ta, porem, s6 deve ser removida quan- 
do a impressora estivcr desconectada da 
corrente eletrica). 

Uma vez localizadas as chaves DIP, 
voce pode troca-las de posicao 
empurrando-as delicadamente com os 
dedos ou com uma chave de fenda. O 
manual de instrucdes deve ter um dia- 
grama do DIP e de suas posicoes, de 
modo a mostrar para que elas estao se- 
lecionadas. Faca um teste voce mesmo. 

Outras caracteristicas de uma impres- 
sora (como, por exemplo, o fato de to- 
do caractere de alimentacao de linha ser 
seguido automaticamente de um retor- 
no de carro) podem ser alteradas 
removendo-se ou inserindo-se um estra- 
pe (pequeno fio em forma de U, com co- 
652 nectores em ambas as pontas) em pon- 



tos apropriados da placa eletrdnica da 
maquina. Antes de fazcr isso, porem, e 
conveniente consultar o manual especi- 
fico da sua impressora. 



CODIGOS DE ESCAPE 



Algumas impressoras (como a Moni- 
ca, por exemplo) admitem o envio de ed- 
digos de controle, da mesma forma que 
se enviam os dados a serem impressos. 
Esses eddigos sao freqiientemente cha- 
mados de seqiiencias de escape. Assim, 
muitas impressoras esperam que voce 
coloque o eddigo para o escape, CHRS 
(27), antes do eddigo de controle. Isso 
permite a impressora saber que o que es- 
ta chegando no momento e uma men- 
sagem de programacao externa, e nao 
um caractere a ser impresso. 

Cada impressora tern as suas seqiien- 
cias de escape prdprias, embora os ca- 
racteres usados nas maquinas compati- 
veis com a Epson estejam se tornando 
rapidamente um padrao para impresso- 
ras que oferecem facilidades similares, 
Nas maquinas mais versateis ha um 
enorme conjunto de seqiiencias de esca- 
pe. Estas podem ser enviadas por um co- 
mando LPRINT normal. 

Em uma Epson, o exemplo a seguir 
imprime a palavra COMPUTADOR em 
modo enfatizado, desde que tenham si- 
do enviados os comandos corretos. 



^Q 



LPRINT CHR$ (2?) ; ' E ' ; * COMPUTADOR 



ao 



rati 

PRINT CHRS (27) ; 'E' ; 'COMPUTADOR' 

D 

PRINT*-2,CHR$(27) ; 'E' ; "COMPUTAD 
OR' 

Mas nao se esqueca de voltar ao mo- 
do normal. Para isso, use os seguinies 
comandos: 



LPRINT CHR$(27) ; 'F' 

DE 

PR#1 

PRINT CHn$(27) ; 'F' 

D 

PRJNT*-2. CHRS 127} ; 'F' 

Lembre-se, porem, de que esses ed- 
digos sao exciusivamente para as im- 
pressoras Epson e as que sao compatf- 



veis com ela. Para outras impressoras, 
os eddigos serao diferentes. 



OS CODIGOS EPSON 



Os efeitos mais comuns obtidos com 
os eddigos de escape do tipo Epson sao 
os seguintes: impressao em italico, im- 
pressao grifada, impressao em negrito, 
subscritos e sobrescritos. Certas opera- 
cdes variam de maquina para maquina. 
As que apresentamos a seguir funcio- 
nam na maioria das impressoras com- 
pativeis com a Epson: 
ESC 4 ativa um conjunto altemativo de 
caracteres (geralmente o italico). 
ESC 5 retorna ao conjunto padrao. 
ESC - ativa e desativa o grifo. Deve ser 
seguido por CHR$(1) ou por CHRS(49>; 
para a alteracito, 6 desativado por 
CHRW) ou CHR$<48), conforme tenha 
sido ativado por CHRS(l) ou por 
CHR$(49). 

ESC G ativa o modo dupla impressao. 
ESC H desativa o modo dupla im- 
pressao. 

ESC S, quando e seguido de CHR$(0)> 
ativa o modo de sobrescricao; quando 
e seguido de CHRS(l), ativa o modo de 
subscricao. 

ESC T retorna a impressora ao modo 
normal depois de ativado o modo de 
subscricao ou sobrescricao. 
ESC @ inicia a impressora e volta to- 
dos comandos aos valores originais. 

Voce pode usar as seqiiencias de es- 
cape em praticamente todas as impres- 
soras conhecidas, colocando-as depois 
do comando que o seu computador usa 
para enviar uma saida a impressora 
(LPRINT, PRINT #-2, ou qualquer ou- 
tro) e separando-as por pontos e virgu- 
las, assim como se faria com qualquer 
outro comando CHRS. 

Algumas impressoras exigem que se 
coloque um caractere ASCII para o ES- 
CAPE entre todos os eddigos de contro- 
le. O manual de instrucdes deve dizer se 
voce vai ou nao precisar disso. 



NOVAS TENDENCIAS 



As seqiiencias de escape terao um pa- 
pel mais importante na medida em que 
as impressoras se tornarem mais bara- 
tas e sofisticadas. Ja existem impresso- 
ras com matrizes de ponto cuja quali- 
dade e quase a mesma das impressoras 
"margarida"; algumas delas tern carac- 
teristicas prdprias usualmente associa- 
das com fotocom posicao profissional, 
tais como: espacejamento proportional 
e justificacao automatica a direita ou a 
esquerda. 
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UMA ROTINA DE CONTROLE 
DO AVIAO PELQ TECLADO 



A ATERRISSAGEM 



ACiDENTES AEREOS 



PERDAS E DANOS 




Agora que voce ja § urn (relative) as 
da aviacao, desligue o piloto 
automatico e, com apenas tres funcoes, 
faca o aparelho aterrissar. 
Mas tenha culdado com os umbus. 



Ultima parte de nosso programa si- 
mulador de voo, este artigo fara com 
que voce possa finalmente assumir o 
controle direto do aviao, Tres pares de 
teclas permitirao aumentar e diminuir a 
rotacao do motor, virar o aparelho pa- 
ra os lados, subir ou descer. 

Nossa viagem comecou a 20.000 me- 



tres do centro da pista e a 2.000 metros 
de altura. 

Pilotar pode ser uma tarefa dificil... 
sobretudo se voce nada sabe do assun- 
to. Nao espere bons resultados nos pri- 
meiros voos: como em tudo na vida, a 
habilidade s6 vem com o tempo. 

Relativamente lentos por estarem em 
BASIC, programas como esse parecem 
ainda mais morosos pelo fato de nao 
permitirem mudancas bruscas de curso. 
Com paciencia e perseverance, porem, 
voce conseguira controlar o aparelho e 
meJhorar seus pousos. O programa o 
mantera informado a respeito de cada 
aterrissagem ou acidente. Essas mensa- 
gens sao importantes: sera por meio de- 



las que voce sabera nao so o que esta 
acontecendo em cada momento como 
tambem onde se encontram suas prin- 
cipais deficiencias. 



LET 



3000 

IF K5-" 

101.0 TF 

.1020 

.1 .1 

I 

3010 IF K$="A" 

1 



If 

FF 



POW = 
THEN 



1050 

LET 

3 060 



TF 

RI. 
If 



K5="0" 
= RL-1 
K$-"P" 



: LET KS-tNKEYS: 
RETURN 

THEN LET POW--1 
THEN LET POW = l 
THEN LET PT-PT+ 

THEN LET PT*PT- 

AND Hl.>-.10 THEN 

AND HIX30 THEN 



LET RI. = R1..+ J 
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3070 RETURN 

5020 CLS : INPUT "VEI.OCTDADE DO 

VENTO (1 -50 M/S) ",Xfl 
5025 IF X0>50 OR XCX I THEN GOT 
5020 

5030 TNPUT "DTRECAO DO VENTO (0 
-359 GRAUS) ".XI 

5035 TF X]>359 OR XKO THEW GO 
TO 50 30 

5040 LET X0=X0/3 

5050 PRINT '"VELOCIDADE DO VENT 
0^ "i3*X0;" M/S": PRINT "DIRECA 
0= ";X1 ;" GRAUB" 
5055 PAUSS 100: CLS 

5060 let wy=--xo*cos cxi*C) 

5070 LET MX— X0*StN {Xl*CJ 

5500 GOSUB 3000: GoSUB 1000 

5510 IF PZ<-0 THEN ROTO 0000 

5520 GOSUB 2000 

5 5 30 GOTO 5 50 

6000 IF ASS RL>RT OR PT>TP OB P 

T<0 OR VV>S0 THEN GOTO 60 30 

6(110 IF A8S PX>WH OB ABE PY>100 

THEN GOTO 6060 

6020 CLS : PRINT " PAHABENSJ": 

("HINT "ATERRISSAGEM HEM 8UCEDXD 

A . " : GOTO 6 1 

6030 FOR N=0 TO 20 STEP .5: PI.O 

T 127. J. (0: DRAW 120- 1 NT (RND-Z4 

01.45-INT <RND*90) : SOUND .005, 

20-N: NEXT N 

6040 PAUSE 50 

6050 CLS : PRINT "LAMENTAMOS fN 

FOKMAR yi!E VOO P.l-26 KOKREU 

HM GRAVE ACIDENTE. NAO HA SOBR 
EVTVENTES.": GOTO 6100 
6060 CLS : PRINT "VOCE POUSOU F 
ORA DA PISTA" 
6070 IF VV<4 THEN PRINT "COMO 

SUA VELOCIDADE ERA BA.1.XA QUA 
SE NADA ACONTECEU.": GOTO 6100 
6080 TF VV<BQ THEN PRINT "ENTR 
E MOETOS E FERIDOS SAT. 

VARAM-SE TODOS,": GOTO 6100 
6090 PRTNT "NTNGIJEM SOBREVTVE A 

UM POUSO NESSA VEl.OCIDADE!" 
6100 PRINT '"UAL.OHES RELATIVQS 
AO POUSO" 

6U0 PRINT '"VELOCIDADE DO AR = 
";INT VV;" M/S" : PRINT "D1STANC 
IA- ";INT (S(!R CPY*PY + PX*PX) ) : 
PR TNT "TNC1.INACAO FRONTAL* " ; PT 
6120 PRINT "INCLTNACAO LATERAL- 

";RI. : PRINT "ROTACAO DO MOTOR- 

";INT (10*TC)/10: " X 1000" 
6130 PRINT "DESVIO DO EIXO DA P 
TSTA= " ; TNT ABS PX ; " METROS": P 
HINT "DIRECAO- ";AD;" GRA1JS" 
6140 PRINT '"QUER VOAR NOVAMF.NT 
E (S/N) ?" 

6150 LET AS'f.NKEYS: IF A$0"S" 
AND ASO"N" THEN GOTO 6150 
6160 IF AS="N" THEN CLS : STOP 
6170 RUN 

A sub-rodna que vai de 3000 a 3070 
nos dara o controle do aparelho. 

Usando o comando INKEY$ para 
detectar teclas, podemos modificar a ro- 
tacao do motor, virar o aparelho, subir 
ou descer. Uma nova variavel — POW 
— aparece nas linhas 3010 e 3020; ela 
> serve para alterar a rotacao. Um valor 



zero e atribuido a POW na linha 3000 
cada vez que a sub-rofina e chamada. A 
tecla S determina a velocidade, enquan- 
to F acelera o motor. 

Q e A sao usadas para provocar a as- 
censao e a descida do aviao, somando 
ou subtraindo 1 a variavel PT nas linhas 
3030 e 3040. Finalmente, podemos usar 
O ou P para virar o aparelho — as li- 
nhas 3050 e 3060 cuidam disto, alteran- 
do o valor de RL. 

As linhas 5020 a 5070 permitem va- 
riar o mvel de dificuldade do jogo, es- 
colhendo a for v a e a direcao do vento. 
A opcao mais facil e a de um vento de 
um metro por segundo em uma direcao 
de zero grau. A partir da nossa opcao, 
a linha 5060 calcula a velocidade do ven- 
to na direcao frontal do aparelho, e a 
linha 5070 calcula a componente lateral 
dessa velocidade. SIN e COS servem pa- 
ra calcular as componentes em cada di- 
recao. WX e WY sao usadas para alte- 
rar a posicao do aparelho — GX e GY 
na linha 5080. 

A "alma" do programa e constitui- 
da pelas linhas 5500 a 5530, que cha- 
mam todas as grandes sub-rotinas em se- 
qiiencia; desse modo, a posicao e mo- 
di ficada continuamente. 

A linha 5510 verifica, por intermedio 
do valor de PZ, se o aviao aterrissou. 
O programa vai entao para o segmento 
que verifica se a aterrissagem foi satis- 
fatdria ou desastrosa. 

A linha 6000 verifica se as inclinacoes 
lateral e frontal do aviao estao fora de 
limites aceitaveis, ou se a velocidade e 
maior que oitenta metros por segundo. 
Se houver uma dessas condicoes, ocor- 
rera um acidente. O motivo pode ser 
uma asa muito baixa, excesso de velo- 
cidade ou simplesmente uma tentativa 
de aterrissagem fora da pista. O progra- 
ma prosseguira na linha 6030, que cui- 
da dos acidentes. Ela traca varias linhas 
irradiando do centro do para-brisa. A 
medida que essas rachaduras sao dese- 
nhadas, o computador emite um som. 
Apds o acidente, a linha 6040 provoca 
uma pausa antes que o piloto seja infor- 
mado das mas noticias pela linha 6050, 
que fornece tambem os detalhes do 
acidente. 

Se o aviao pousar corretamente, a li- 
nha 6010 verificara a posicao da aterris- 
sagem. Se pousar fora da pista, a linha 
6060 informara sobre o fato. Se a velo- 
cidade era inferior a cinqiienta metros 
por segundo, a linha 6070 dira ao pilo- 
to que houve um pouso bem-sucedido. 
As linhas 6080 e 6090 informarao se o 
acidente foi pequeno, apenas com feri- 
dos leves, ou se foi um desastre mais 
grave; neste caso, o jeito e procurar a 
caixa-preta. 




Apague a linha 5505. Note que algu- 
mas linhas deste programa sao modifi- 
cacoes de linhas ja existences. 

2 DEF USR1-1.H41 : DEFUSR2-S.H44 
5 GOTO 5000 

10 SCREEN 2, 2: KEY OFF : COLOR 15, 
4,2 

15 A-USRJ (0) 

50 ON KEY GOSUB 3100,3200 
60 KEY(l) STOP: KEY (2) STOP 
110 RETURN 
3000 A-ST1CKC0) 
3010 KEY (It ON: KEY (2) OH 
3030 IF A-l THEN PT-PT+3:GOTO 3 
070 

3040 IF A-5 THEN PT-PT-3;GOTO 3 
70 

3050 IF A-7 AND RL>-30 THEN RL- 
RL-3:GOTO 30 70 

3060 IF A-3 AND RL<30 THEN RL-B 
L+3 

3070 KEY CD STOP:KEY{2) STOP:RE 
TURN 

3100 T2«TC:IF TC> . 2 THEN TC-TC" 
. 2 ! RETURN 

3200 T2-TC:IF TC<S.B THEN TC=TC 
+.2: RETURN 

3900 LINE(X,Y)-(X+50,Y+B) , 2 . BF 
5020 SCREEN 0:KEY OFF : INPUT"Vftl 
ocidade do vento (1-50 b/s) ";X 


5025 IF X0>50 OR X0<0 THEN 5020 
5030 INPUT"Direg5o do vento (0- 
359 graus) ";X1 

5035 IF Xl>359 OR XKO THEN 503 


5040 X0-X0/3 

5050 PRINT; PRINT "Velocidade do 

vento: ": INT (3*X0) ; "m/b" : PRINT 

"Direcao do vento :*;X1;" oraua 

m 

5060 WY-X0*COS(Xl*C) : WX— X0*SIN 
(X1*C) 

5070 FOR 1=1 TO 1000 : NEXT : GOSUB 
10 

5400 A-USR2(0) 

5500 GOSUB 3000: GOSUB 1000 

5510 IF PZOO THEN 6000 

5520 GOSUB 2000 

5530 GOTO 5500 

6000 IF ABSCHL)>RT OR PT>TP OR 

PT<0 OR VV>60 THEN 6100 

6010 IF ABS(PX)>WR OR ABS{PY)>1 

000 THEN 6200 

6020 COLOR 15, 4. 4: SCREEN 

6030 PRINT "Parab^nu !": PRINT ' 

AterriBBaoeii ben aucedida. " :G0T 

O 6500 

6100 LINE (0.0)-(flND(l>*!28+64. 

RKD(l)*96+49) , 15 : LINE- (255, 191) 
,15:LINE (255,0)-{RND(l)*128+64 
,RNDU>*96+49) , 15 : LINE- (0 , 191) , 

15 

6110 FOR K-l TO 1000: NEXT 

6120 COLOR 15,4,4:SCREEN 0:PRIN 

T "Lamentapos lntoruar, que o v 

Oo PJ26" 

6130 PRINT "Borreu um grave aci 

dente. " 
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6140 PRINT "Nao hi aobrevi vent.e 
h." :GOTO 6500 

6200 COLOR 15, 4, 4: SCREEN 
6210 PRINT "Voce pouiou fora da 

Plata." 
6220 IF VV<40 THEN PRINT "Comes 
sua velocodade era baixa,":PRIN 
T "quane nada aconteceu . " : GOTO 
6500 
6230 IF WOO THEN PRINT "Entre 

■ortoa e f eridos, ": PRINT "aalv 
aram-ae todoa.":GOTO 6500 
6240 PRINT "Ningu^n aobrevive a 

un poubo: "PRINT "neata velocid 
ade . " 
6500 LOCATE 5, 10: PRINT "VALORES 

RELATIVOS AO POUSO" 
6510 PRINT: PRINT "Velocidade do 

ar - "; INT (VV) ; "m/B" : PRINT "Di 
BtSncia - *rlNT(SOfi(PV*py+PX*PX 
));" p":PRINT "Inclinacao front 
a 1 - " ; PT 

6520 PRINT "Incl inacao lateral 
- ";RL: PRINT "Rotacao do motor 
■ ";INT(TC*1000) i "r.p.m." 
6530 PRINT "Deavio do euo da p 
iBta - "; INT (PX) ; "m" : PRINT "Dir 
ecao ■ " ; AO; "graua" 
6540 PRINT: PRINT "Quer voar nov 
aaente (S/N) ?" 

6550 AS-lNKEy$:IF ASO'S" AND A 
3<>"N* THEN 6550 
6560 IF A$-"N" THEN CLS : END 
6570 RUN 

laco principal do programa fica nas 
linhas 5500 a 5530. A primeira coisaque 
ele faz e charnar uma sub-rotina na li- 
nha 3000 que permitira o controle do 
aviao, Essa sub-rotina usa o comando 
STICK, por meio do qual podemos pi- 
lotar com o teclado — ou com o joys- 
tick, se usarmos STICK (1). 

As linhas 3030 e 3040 controlam os 
movimentos de subida e descida, en- 
quanto as linhas 3050 e 3060 determi- 
nant os movimentos laterals. 

E necessario ainda que existam for- 
mas de acelerar e diminuir a rotacao do 
motor. Isso e feito por intermedio das 
teclas de funcao do MSX. Nessa rotina 
serao utilizadas as duas phmeiras teclas 
de funcao. Para tanto, foi inciufda a li- 
nha 50 no inicio do programa; ela infor- 
ma ao computador o que fazer quando 
uma das teclas de funcao for pressiona- 
da, A funcao responsavel por isto e ON 
KEY GOSUB, que difcrc da fungao ON 
"variavel" GOSUB em diversos aspec- 
tos. O programa nao sera desviado ao 
encontrar a linha 50; ele apenas ficara 
sabendo para onde ir no momento opor- 
tuno, guardando os enderecos na 
memoria. 

So quando o programa chegar a li- 
nha 3010 e que as teclas de funcao se- 
rao ativadas pelo comando KEY (M) 
ON, onde N e o niimero da tecla. A par- 
tir dai, se pressionarmos a tecla de fun- 



gao 1, o programa executara a sub- 
rotina da linha 3100, que desacelera o 
motor. Se a tecla de Funcao pressiona- 
da for a 2, o motor sera aceierado pela 
sub-rotina da linha 3200. 

Observe que o computador interrom- 
pera o que estiver fazendo para aceJe- 
rar ou desacelerar o motor, voitando em 
seguida para a tarefa anterior. Contu- 
do, se o programa estiver fazendo os cal- 
culos no momento em que pressionar- 
mos uma das teclas de funcao, coisas es- 
tranhas podem acontecer. £ que a pri- 
meira parte dos calculos ter^ sido feita 
com o valor antigo da rotacao do mo- 
tor, e a segunda, com o valor novo, 

A solucao nao esta em desligar as te- 
clas de funcao durante a execucao dos 
calculos, pois, neste caso, o programa 
s6 aceitaria mudancas na rotacao do 
motor em determinados momentos, 

O problema, contudo, pode ser resol- 
vido. Para isso, e necessario que se di- 
gite o comando KEY (N) STOP nas li- 
nhas 60 e 3070. Depois de urn comando 
desse tipo, o computador sera capaz de 
detectar a tecla de funcao corresponden- 
te, mas o desvio nao ocorrera ate que 
urn comando do tipo KEY (N) ON seja 
encontrado. Dessa maneira, o progra- 
ma "sabe" que uma tecla de funcao foi 
pressionada, e se lembrara de tal fato no 
momento adequado. 

Algumas linhas iniciais tamb^m fo- 
ram modificadas. A linha 2 define o en- 
derego de duas rotinas em linguagem de 
maquina, que ficam na ROM. A primei- 
ra "desliga" temporariamente a tela, 
quando chamada pela linha 15, iinpe- 
dindo que o jogador veja o desenho que 
esta sendo feito na tela. A segunda "li- 
ga" a tela novamente, quando chama- 
da pela linha 5400, de forma que a ca- 
bine apareca instantaneamente. 

A linha 5 desvia o programa para que 
o jogador informe a velocidade e a di- 
regao do vento, nas linhas que vao de 
5020 a 5070, Isso e feito antes que o de- 
senho da cabine de comando seja feito 
pela sub-rotina 10. 

Se a linha 55 10 perceber que o aviao 
atingiu o solo, o programa prosseguira 
na linha 6000. Ali serao verificados os 
valores das inclinacoes frontal e lateral, 
assim como as da velocidade do vento. 
Se todos eles estiverem dentro dos limi- 
tes aceitaveis, a linha 6020 informara ao 
piloto que houve uma aierrissagem bem- 
sucedida. 

Um pouso fora da pista nao signifi- 
ca necessariamente uma tragedia. Se a 
velocidade do aviao for inferior a 40 
m/s, a linha 6210 dira que os danos fo- 
ram pequenos, Se ela estiver entre 40 e 
80 m/s, a linha 6220 dara conta de que 
as perdas materials foram pequenas, 



mas que ha alguns feridos. Se a veloci- 
dade for maior que 80 m/s s6 nos res- 
tart procurar acaixa-preta: o desastre 
teri sido total. 

As linhas 6500 a 6530 mostram os va- 
lores de todas as variaveis no momento 
do pouso. Estudando bem esses niime- 
ros, voce aprendera a fazer aterrissagens 
cada vez melhores. 

FinaJmente, as linhas 6540 a 6570 nos 
dao a opcao de jogar novamente. 



QElSI 



Antes de mais nada, apague a linha 
5505. O programa a seguir compieta a 
simulagao de v6o. Use as teclas Z, X, 
P e L para jogar. 

3000 K - PEEK { - 16384) : POKE 

- 16368.0 

3010 IF K - 193 AND TC > .2 TH 

EN TC - TC - .2: GOTO 3070 

3020 IF K - 209 AND TC < 8.8 T 
HEN TC - TC + .2: GOTO 30 70 

3030 IF K - 208 THEN PT - PT + 

3: GOTO 3070 

3040 IF K - 204 THEN PT - PT - 

3: GOTO 30 7 

3050 IF K - 218 AND RL > - ,0 

05 THEN RL - RL - -O0X: OOTO 30 
70 

3060 IF K ■ 216 AND RL < .005 
THEN RL = RL + .001: GOTO 3070 
30 7 RETURN 

5020 HOME : TEXT ! INPUT "VELO 
CIDADE DO VENTO (1-50) M/S ";X0 
5025 IF X0 > 50 OR X0 < 1 THEN 

5020 
50 30 INPUT "DIRECAO DO VENTO 
(0-359) GRAU9 ";Xl 
5035 IF XI > 359 OB XI < THE 
N 5030 

5040 X0 - X0 / 3 
5060 UY = X0 * COS (XI * C) 
5070 UX ■ - X0 * SIN (XI » C) 
5500 GOSUB 3000: GOSUB 1000 
5510 IF PZ < - THEN 6000 
5520 GOSUB 2000 
5530 GOTO 5500 
5570 GOTO 6550 
6000 IF ( ABS (RL) > RT) OR PT 

> TP OR PT < OR AS > 80 THEN 

6100 
6010 IF ABS (PX) > WR OR ABS 

(PY) > 1000 THEN 6200 
6020 TEXT : HOME : PRINT "PARA 
BENS 1 ■ : PRINT "ATERRISSAGEH BE 
M SUCEDIDA" : GOTO 6500 
6100 HCOLOR- 3: HPLOT , TO 
RND (1) * 140 + 71, RND (1) * 9 

6 + 49 TO 279,191: HPLOT 279,0 
TO RND (1) * 140 + 71, RND (1) 

* 96 + 49 TO 0, 191 
6110 FOR K - 1 TO 2000: NEXT 
6120 TEXT : HOME : PRINT "LAME 
NTAMOS TNFORMAR QUE O VOO PJ25" 
■ PRINT "SOFREU UM GRAVE ACIDEN 
TE.": PRINT "NAO HA SOBREVIVENT 
ES.": GOTO 6500 
6200 TEXT : HOME : PRINT "VOCE 

POUSOU FORA DA PISTA." 



II 
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6210 IF AS < 40 THEN PRINT "C 
OMO SUA VELOCIDADE ERA BAIXA, " 
: PRINT "NADA ACONTECEU" GOTO 6 
500 

6220 IE AS < 80 THEN PRINT "E 
NTHE M0RT0S E FEBTDOS": PRINT " 
SALVARAM-SE TODOS" : GOTO 6500 
6230 PRINT "NINGUEM SOBREVIVE 
A UM POUSO FORCADO NESTA VELOCI 
DADE" 

6500 HTAB 5: VTAB 10: PRINT *U 
AL0RE9 RELATIVOS AO POUSO" 
6510 PRINT : PRINT "VELOCIDADE 
DO AR " ; INT (AS) j " H/S" : PRIN 
T "DISTANCIA - " ; INT ( SQR (PY 

* PY + PX * PX) > :" M": PRINT " 
INCLINACAO FRONTAL - " i PT 

6520 PRINT "INCLINACAO LATERAL 

• "(RL: PRINT "ROTACA0 DO MOTO 
R - "; INT (1000 * TO i " RPM" 
6530 PRINT "DESVIO DO EIXO DA 
PISTA - ";PXi" M": PRINT "DIREC 
AO - ~;ADi" GRAUS" 
6540 PRINT : PRINT 
NOVAMENTE (S/N)?" 
6550 GET A$: IF A3 = "3" THEN 

RUN 
6560 IF AS = "N" THEN HOME ■ 
END 

O laco principal do programa vai da 
linha 5500 a linha 5530. lnicialmente, ele 
chama a sub-rotina de controle do apa- 
relho pelo teclado, que comeca na linha 
3000 e vai ate a 3070. A linha 3000 veri- 
fica se alguma tecla foi apertada; as li- 
nhas 3010 e 3020 detectam as teclas Q 
e A, que diminuem e aceleram a rota- 
cao do motor; as linhas 3030 e 3040 des- 
cobrem as teclas PeL, que controlam 
a ascensao e a queda do aparelho; final- 
mente, as linhas 3050 e 3060 detectam 
as teclas Z e X, que viram o aviao. 

As linhas 5020 e 5070 permitem va- 
riar o nivel de dificuldade da aterrissa- 
gem por intermedio da escolha da for- 
ca e da inclinacao do vento. A opcao 
mais facil e uma velocidade de 1 m/s nu- 
ma direcao que faz um angulo de zero 
grau com o aparelho. A partir dos va- 
lores relacionados, a linha 5060 calcula 
o componente frontal da velocidade do 
vento, e a linha 5070, seu componente 
lateral. WX e WY sao usados para alte- 
rar a posicao do aparelho. 

Se a linha 55 10 perceber que o aviao 
atingiu o solo, o programa prosseguira 
na linha 6000. Ali serao verificados os 
valores das inclinacoes frontal e lateral, 
assirn como os da velocidade do vento. 
Se todos eles estiverem dentro dos limi- 
tes aceitaveis, a linha 6020 informara ao 
piloto que houve uma aterrissagem bem- 
sucedida. 

Como no caso anterior, nem ludo es- 
tara perdido se aterrissarmos fora da 
pista. Caso a velocidade de pouso seja 
inferior a 40 m/s, a linha 6210 dira que 
os danos foram pequenos. Se ela estiver 



entre 40 e 80 m/s, a linha 6220 dara con- 
ta de pequenos danos e alguns feridos. 
Se a velocidade for maior que 80 m/s, 
s6 nos restaraprocurar a caixa-preta en- 
tre os escombros: neste caso, o desastre 
tera sido total. 

As linhas 6500 a 6530 mostram os va- 
lores de todas as variaveis no momento 
da aterrissagem. Estudando bem esses 
numeros, voce aprendera a pousar ca- 
da vez melhor. 

As linhas 6540 a 6570, finalmente, 
nos dao a opcao de jogar novamente. 

Na ultima secao vimos que, se o jo- 
go se estender por muito tempo, a tela 
grafica pode ser corrompida por restos 
de cordSes que se acumulam na memrj- 
ria. Se voce tiver esse tipo de problema, 
pode corrigi-lo, modificando a linha 
2000 para: 



QUER UOAR 2000 x _ FRE (0) . HCOL or- 



O comando FRE(W) limpa a area de 
cordoes, evitando que ela invada a tela 
grafica. No entanto, ele torna o progra- 
ma mais lento. 

A velocidade do programa e compro- 
metida principalmente pela execucao da 
sub-rotina que escreve na tela grafica. 
Como os valores que devem ser cortstan- 
temente atualizados ficam na porcao in- 
ferior da tela, podemos acelerar consi- 
deravelmente o programa se liberarmos 
as quatro linhas inferiores para texto 
(veja o artigo Os Com an dos PEEK e 
POKE na pagina 261 ) e usarmos HTAB, 
VTAB e PRINT para escrever ali esses 
valores. 
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Aqui estao as modificagoes para que 
o programa funcione no TK-2000. 

10 FOR I - TO 6 
20 READ A: POKE 768 + I, A 
30 NEXT 

40 DATA 32,67,240,141,32,3,96 
3000 POKE B00.0: CALL 768 :K = 
PEEK (800) 

As quatro primeiras linhas colocam 
uma pequena rottna em codigo de ma- 
quina na memoria do TK-2000. Quan- 
do chamada pela linha 3000, essa roti- 
na permite que se faca leitura do tecla- 
do, com auto-repeticao. 

A baixa velocidade de execucao do 
programa se deve aqui as caracteristicas 
especificas do TK-2000. 



Antes de executar o programa, apa- 
gue a linha 5505. 

3000 IF PEEK(337) =255 THEN RETU 
RN 



3010 

THEN 
3020 
8 THE 
3030 
T+l 
3040 
T 1 
3050 
THE 
3060 

THEN 
3070 
5020 
NTO ( 
5025 
5030 
359) 
3 J 5 


5040 
50S0 
VENTO 
AO- " 
5060 
S070 
5500 
5510 
5520 
5530 

r.ooo 

PT<0 
6010 



IF PEEK(341)=251 AND TO . 2 

TC-TC-. 2 
IF PEEK(344)=254 AND TC<8 . 
N TC=TC+.2 
IF PEEK (341 )*247 THEN PT-P 

IF PEEK(342)=223 THEN PT=P 

IF PEEK(343)=223 AND RL>-3 

N RL-RL-1 

IF PEEK <344)-247 AND RL<30 

RL-RL+1 
RETURN 

CIS: IJJPUT"VELOCIDADE DO VE 
1-50) M/S":X0 

IF X0>50 OS X0<1 THEN 5020 
INPUr'DIRECAO DO VENTO (0- 
GRAUS" ;X.l 
IF Xl>359 OR Xl<0 THEN 503 

X0=X0/3 

PRINT: PRINT"VELOCIDAIJE DO 

; 3*X0; "M/S" : PR I NT" DIREC 
;X1 ; "GRAUS" 
UY=X0*COS [X1*C) 
HX=-X0*SIN(X1*C) 
GOSUB 3000:GOSUB 1000 
IF PZ<=0 THEN 6000 
GOSUB 2000 
GOTO 5500 

TF ABS(RL)>RT OR PT>TP OR 
OR VV>80 THEN 6100 
IF ABS[PX)>WR OR ABS(PY)>1 




23 PROGRAMACAODEJOGOS 23 



PARABENS! 
CUCEDIDA. 



AT 
:GOT 



000 THEN 6200 
6020 CLS: PRINT" 
EHRISSAGEM BEH 
6500 

6100 LINE(O.O)- (RND(12R)+63,RND 
(96) +4 8) , PSET: LINE- (255, 191) , PS 
ET: LINE (2 55,0) - [RNDU28) +63.RND 
(96)+48) , PSET:LINE -(0,191),PSE 
T 

6110 FOR K=l TO 2000:NEXT 
6120 CLS: PRINT" LAMENTAMOS INFO 
RMAR QUE VOO PJ26 SOFREU UM 

GRAVE ACIDENTE . " 
6140 PRINT" NAO HA SOBREVIVENTE 
S" :GOTO 6500 

6200 CLS: PRINT" VOCE POUSOU FOR 
A DA PISTA" 

6210 IF VV<40 THEN PRINT" COMO 
SUA VELOCIDADE ERA BAIXA, QUAS 
£ NADA ACONTECEU" :GOTO 6500 
6220 IF VV<80 THEN PRINT" ENTRE 

MORTOS E FERIDOS, SALV 

ARAM-SE TODOS":GOTO 6500 
6230 PRINT" NINGUEM SOBREVIVE A 

UM POUSO NESTA VELOCIDADE!" 
6500 PRINT: PRINT " VALOHES HELA 
TtVOS AO POUSO" 
6510 PRINT: PRINT" VELOCIDADE DO 

AR -"j INT (W) j "M/S" : PRINT" DIS 
TANCIA = " ; INT(SC;R (PY*PY + PX*PX) ) 
:PRINT" INCLINACAO FRONTAL -":P 
T 
6520 PRINT" INCLINACAO LATERAL 



=" ;RL: PRINT" ROTACAO DO MOTOR - 
" ;INTUQ*TC)/1Q;" X 1000" 
6530 PRINT" DESVIO DO EIXO DA P 
ISTA -"; INT (ABS(PX) ); "M" : PRINT" 

DIRECAO =" ;AD;"GRAUS" 
6540 PRINT: PRINT" QUER VOAR NOV 
AMENTE (S/N) ?" 

6550 AS=INXEY$:IF A$<>"S" AND A 
$<>*H" THEN 6550 
6560 IF AS="N" THEN CLS : END 
6570 RUN 

O la?o principal vai de 5500 a 5530. 
Ele chama a sub-retina de controle do 
aparelho pelo teclado, que vai de 3000 
a 3070, A linha 3000 verifica se alguma 
tecla foi apertada; 3010 e 3020 detectam 
as teclas F e S, que diminuem e acele- 
ram a rotacao do motor; 3030 e 3040 
descobrem as setas "para cima" e "pa- 
ra baixo", que controlam a ascensao e 
a queda do aparelho; 3050 e 3060 detec- 
tam as setas "direita" e "esquerda", 
que viram o aviao. 

As linhas 5020 e 5070 permitem va- 
riar o nivel de dificuldade do pouso, es- 
colhendo a forca e a inclinacao do ven- 
to, A melhor opcao e uma velocidade de 
1 m/s numa direcao que faz um angulo 
de zero grau com o aparelho. A linha 
5060 calcula o componente frontal da 



velocidade do vento, e a 5070, seu com- 
ponente lateral, WX e WY servem para 
alterar a posicao do aparelho, 

Se a linha 5510 perceber que o aviao 
atingiu o solo, o programa prosseguira 
na linha 6000. Ali serao verificados os 
valores das inclinacoes frontal e lateral, 
bem corno da velocidade do vento. Se 
todos eles estiverem dentro dos limites 
aceitaveis, a linha 6020 informara ao pi- 
loto que fiouve uma aterrissagem bem- 
sucedida. 

Uma aterrissagem fora da pista nao 
implica, necessariamente, a destruicao 
do aparelho, Assim, se a velocidade de 
pouso for inferior a 40 m/s, a linha 6210 
dira que os danos foram pequenos, Se 
ela estiver entre 40 e 80 m/s,. a linha 
6220 informara que alguma coisa foi 
destruida e que ha alguns feridos. Se a 
velocidade for maior que 80 m/s, so nos 
restara procurar a caixa-preta entre os 
destrocos do aviao: o desastre tera sido 
total. 

As linhas 6500 a 6530 mostram os va- 
lores das variaveis no momento do pou- 
so. Estudando bem esses niimeros, vo- 
c§ aprendera a pousar cada vez melhor. 

Finalmente, as linhas 6550 a 6570 
oferecem a opcao de jogar de novo. 
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UM REIOGI© 



NATEIA 



Se voce nao tiver nada para fazer numa 
tarde de chuva, rompa o tedio 
executando a rotina apresentada neste 
artigo e veja surgir um 
relogio digital na tela do computador. 



Usado para regular as atividades do 
micro, o reI6gio intemo funciona a uma 
velocidade constante. Em alguns casos, 
seu conteiido s6 pode ser lido e manipula- 
do por instrucoes em cddigo de maqui- 
na. Em outros, podemos cronometrar 
eventos atraves de instrucoes do BASIC, 
que variam segundo o modelo da ma- 
quina: PAUSE no Spectrum, TIME no 
MSX, TIMER no TRS-Color etc. 

Tais instrucoes fazem com que o mi- 
cro conte em unidades entre cem e cin- 
qiienta avos de segundo, conforme a ve- 
locidade do relogio. Muitas operacoes 
usam o reldgio de maneira similar: por 
exemplo, se o micro for programado pa- 
ra tocar nuisica, temos que especificar 
a duracao de cada nota. 



COMTANDO TEMPO 



De fato, ainda que certas funcoes nao 
tenham sua duracao definida dessa ma- 
neira, o computador e" um contador de 
tempo por excelencia, executando os 
programas com o olho no relogio, Po- 



demos, assim, fazer com que o compu- 
tador conte o tempo para nos: basta es- 
crever um programs em BASIC conten- 
do um laco que imprima a hora, provo- 
que uma pausa, imprima a nova hora, 
e assim sucessivamente. Se fizermos is- 
so, logo veremos que a pausa deve ser 
um pouco menor que um segundo, pois 
o micro leva algum tempo para fazer as 
adicSes e impressoes necessarias. 

Um reldgio desse tipo tern duas gran- 
des desvantagens. A primeira e que ele 
s6 conta o tempo enquanto o computa- 
dor estiver ligado. Mais grave do que es- 
ta, a segunda limitacao consiste no fato 
de que, sempre que quisermos usar o mi- 
cro para alguma outra coisa, teremos 
que desligar o re!6gio, pois nao e possi- 
vel executar dois programas BASIC ao 
mesmo tempo. O "desligamento" do re- 
ldgio caracteriza, portanto, uma inter- 
rupcao da UCP. Esse tipo de manipu- 
lacao em geral exige um conheeimento 
maior da arquitetura do microcompu- 
tador, bem como o uso de instrucoes de 
acesso a recursos que so existem em lin- 
guagem de maquina. 



UM RELOGIO INTERMITENTE 



Para que um programa funcione si- 
multaneamente com a execucao de um 
BASIC, e preciso que ele contenha ro- 
tinas controladas por interrupcao. 

Os usuarios do Spectrum ja tiveram 
um exemplo desse tipo de rotina. De fa- 
to, o metodo utilizado e semelhante em 
todos os micros. 

Quando esta ligado, o micro e cons- 
tantemente interrompido por uma fra- 
cao de segundo, a intervalos regulares. 
Isso aconteee mesmo que um programa 
em BASIC esteja sendo executado, pois 
o computador precisa "saber'* se algu- 
ma tecla foi pressionada. Assim, o pro- 
grama BASIC e interrompido enquan- 
to o teclado e verificado, recomecando 
novamente ate a interrupcao seguime. 

Durante a verificacao do teclado, e 
possivel introduzir uma rotina em codi- 
go, de modo a executa-la nas "brechas" 
abertas peia interrupcao do BASIC. O 
resultado e que os programas parecerao 
funcionar simultaneamente. 



» 
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COMPUTADOR COMO RELOGIO 



CONTANGO TEMPO 



COMO FAZER INTERRUPC OES 
MOSTRADOR DO RELOGIO 



UM RELOGIO INTERIM ITENTE 



UMA RQTINA EM COD IGO 

LIGUE REL6GIO 

ACERTE OS PONTEIROS 

SAVE , LOAD , 

SOUND, PLAY 



Ja que o processo de interrupcao e 
controlado pelo relogio do micro, con- 
vem acertar o passo do re!6gio simples- 
meme comando o numero de interrup- 
c6es. A frequencia de interrupcoes va- 
ria de micro para micro, mas o princi- 
pio e o mesmo. 

O programa que se segue Simula urn 
relogio no Spectrum e no TRS-Color, 
com horas, minutos e segundos conta- 
dos a partir do rnomento em que come- 
ca a ser executado. Podemos acerta-lo 
de modo a faze-lo funcionar, seja como 
relogio, seja como cronometro. Esses 
valores sao mostrados continuamente 
no canto superior direito da tela. O re- 
logio permanecera funcionando na te- 
la, mesmo que outro programa esteja 
sendo executado ou digitado. 

Como voce nao cardara a perceber, 
ele nao prima muito pela precisao, Es- 
sa falha, porem, nao se deve a rotina 
que acerta a hora, pois os atrasos pro- 
voeados por ela sao insignificant es (da 
ordem de milionesimos de segundo). As- 
sim, o erro vein mais do relogio interne 
do que de qualquer outra fonte. Por ou- 
tro lado, funcSes como SAVE, LOAD, 
SOUND e PLAY param o relogio en- 
quanio estiverem sendo executadas. A 
hora e exibida, num mostrador digital, 
no canto superior direito do video, apa- 
gando qualquer coisa impressa ali ante- 
riormente. Se isso causar problema, 
reorganize sua tela a fim de evitar a pri- 
meira linha, Por exempfo, voce poderia 
colocar a hora digital no canto superior 
(esquerdo ou direito), desde que o mo- 
delo do seu micro o permitisse. Neste ca- 
so, o programa em linguagem de maqui- 
na teria que ser alterado. 



O programa a seguir funciona tanto 
na versao de 16K, como na de 48K do 
Spectrum. Antes de comecar a roda-lo, 
tome alguns cuidados especiais, pois 
cartuchos e expansoes conectados ao mi- 
cro podem dificultar sua execucao. E o 
caso, por exemplo, de interfaces para 
impressora, joysticks, etc. 

10 CLEAR .32319: LET total=»0 

20 FOR n=32320 TO 32554: READ 

a: POKE n.a: LET total =total+ 

a: NEXT n 



30 IF total024216 THEN 
PRINT "Erro noa dadon" : STOP 
4 RAND USR 32.120 
50 DATA 33,0,0,34,120,92,-14, 

I 21 , 92 . 62 , 4 , 237 , 7 1 . , 23 7 , 94 , 

201,0,64,0,0 

60 DATA 62. 62, 23?. 7.1 ,237.86, 

201 ,0,229.213, 197, 245,58,91 , 

126,60,50,91 , 126,254 

70 DATA 50,32,50,125,50,91, 

126,58,120,92,60,50.120.9?, 

254,60,32,35. 175,50 

80 DATA 120,92.58,121.92.60, 

50. 121. 92, 7 54,6(1, 3 2, 20, 175. 50 

.121 ,92.58.122.92 

90 DATA 60, 50, 122, 92, 254. 13, 

32,5,62, 1 .50. 122,92,58.122,92 

,.18,0,111,17 

10 DATA 2.1,64.205,2 34,126,58, 

1 21 . 92 . 38 . , 1 1 1 . 1 7 , 26 , 64 , 20 5 , 

234. 126.58,120,92 

110 DATA 38,0, I 1.1 ,17,29.64,205 

,2.14, 126,17,208.61 .3 3.29,64, 

205.34, 127,17.208 

120 DATA 61, 3.3, 26. 64, 205,. 14, 

127, 62, 120,33 ,24, 88. 11 9. 17, 25. 

88.1 ,7,0,217 

130 DATA 176,205,191,2,241,193 

. 209 , 225 , 25 1 , 201 , 237 , 83,80 , 1 26 

,1 ,246,255.205,251,126 

.140 DATA 1,255,255,205,251,126 

. 201 . 1 75,9,60,56,252,2 37.66.61 

,198,48,229,205.21 

150 DATA 127,33.80, 126,52,42. 

80,126, 205,34,127,225,201 ,237, 

75.54.92,38.0,111 

160 DATA 41,41 ,41 ,9.235,201,6, 

6,26,119,36,19, 16,250.201 

Essa rotina e formada por niimeros 
distribuidos ern linhas DATA; eles sao 
colocados na memdria pelo BASIC, 
usando POKE. Tal quantidade de nii- 
meros propicia erros de digitacao; as- 
sim, a linha 20 verifica a soma dos nii- 
meros: se o resultado nao corresponder 
ao esperado, a linha 30 interrompera a 
execucao do programa com uma men- 
sagem de erro, para que voce verifique 
as linhas DATA. Esse metodo e chama- 
do de "checagem por soma" e 6 reco- 
mendavel quando ha muitos niimeros. 

A linha 10 protege o topo da memd- 
ria para colocar ali a rotina em codigo, 
que e executada pela linha 40 . O relo- 
gio comeca com 00:00:00, mas podemos 
acerta-lo com: 

POKE 23672, (stgundoe) 
POKE 23673, (ninutosj 
POKE 2 3674, (horaa) 



Os niimeros nos comandos POKE 
devem estar no intervalo permitido — 
de a 60 para minutos e segundos, e de 
1 a 12 para horas. Sequisermos "zerar" 
o relogio, e mais facil usar: 

RAND U3R 32320 

que executa a rotina novamente. Voce 
vai precisar desse comando, se o progra- 
ma em BASIC for apagado por NEW. 

D 

Essa rotina nao funciona com drives 
de disquete ligados ao micro. 



10 CLEAR 200,32599 

20 FOR J-32600 TO 32679 

30 READ N 

40 POKE J.N 

50 NEXT 

100 DATA 204,0,0,253,127 

3 , 127 , 2 54 , 48 , 140 , 4 , 191 , 1 



,252,25 

,13,57 

,128,0. 

111,132 

24 2.134 

127.255 

10,45,3 

,195,17 

34,58,1 

,50.60, 



110 DATA 206,127,164,142 
166.13 0.76,161,192,38,9. 
120 DATA 140,127,252,38. 
.1,167,132,206,4,32.142, 
130 DATA 79,230,130,192, 
,76,32,249,195,4 7,58,237 
140 DATA 131,4,25,47,6,1 
67,194,3 2.229.126,137,76 
60,13 

A rotina em codigo esta nas linhas 
DATA, sendo colocada na mem6ria pe- 
lo POKE da linha 40. Qualquer erro nas 
Sinhas DATA sera fatal; portanto, gra- 
ve o programa antes de executa-lo. Ve- 
rifique os niimeros cuidadosamente. Um 
erro muito comum e esquecer alguma 
vfrgula, substituir uma virguia por um 
ponto ou vice-versa. Tudo isto prejudi- 
ca a seqiiencta de leitura do comando 
READ. Execute o programa para car- 
regar a rotina em eddigo. Para ligar o 
relogio, use: 

EXEC 32600 

Isso inicia a attvidade do relogio com 
00:00:00. Para acerta-lo, digite em mo- 
do direto, pelo teclado: 

POKE 32764, (horas) 
POKE 32765, (ainutoa) 
POKE 32266, (Beoundoa) 

Nao empregue valores improprios 
para horas, minutos e segundos: o com- , 
putador nao tern meios de checa-Ios. 
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Aprenda a empregar os caracteres 
graficos pre-prog ram ados do 
TRS-80 em desenhos mais complexos 
e capacite-se a trabalhar com 
os uteis "sprites programa 1 veis". 



Se examinarmos com cuidado os ca- 
racteres graficos do TRS-80, que oeu- 
pam a faixa de codigos que vai de 129 
a 193 (veja tabela no capitulo anterior 
desta licao), podemos notar facilmente 
que eles sao formados por todas as com- 
binacoes possiveis de seis pixels retan- 
gulares, acesos ou apagados. Portanto, 
a matriz de urn caractere tern esta 
forma; 



Voce vera agora que nao e necessa- 
rio memorizar a tabela de caracteres gra- 
ficos do TRS-80, nem consuka-la a to- 
do momento ao se projetar um desenho 
mais complexo, formado por varios des- 
ses caracteres. A razao e que existe uma 
relacao matematica bem definida entre 
a forma do grafico e o seu codigo nu- 
merico. Ou seja, os codigos nao foram 
atribuidos ao acaso, como para compu- 
tadores de outras linhas. 



BITS QUE SE ACENDEM 



Todo caractere grafico e formado pe- 
la combinacao de seis pixels — dois na 
horizontal e tres na vertical — , que po- 
dem estar individualmente acesos ou 
apagados. Cada um deles corresponde 
exatamertte ao pontinho de luz que po- 
de ser ligado ou desligado com os co- 
mandos graficos SET e RESET. 

Por que? Sabemos que a tela de bai- 
xa resolucao do TRS-80 tem 128 pon- 
tos na horizontal (ou seja, 64 caracte- 
res vezes 2 pixels), e 48 na vertical (isto 
e, 16 linhas vezes 3 pixels). 

Cada pixel corresponde a um bit na 
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Os bits numerados de a 5 corres- 
pondem aos seis pixels habituais do ca- 
ractere grafico. 

O bit 6 nao e usado para representa- 
cao de caracteres graficos, e o bit 7 e 
sempre igualado a 1, para todos os ca- 
racteres graficos. 

Por exemplo, se quisermos obter o 
codigo grafico 134, precisaremos acen- 
der suces&ivamente 1 e 2: 
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O c6digo 134 e obtido fazendo-se a 
conversao de binario para decimal: 

bit valor multiplicador resultado 

0x1 =0 

11x2 =2 

2 1x4 =4 

3 0x8 

4 x 16 =0 

5 x 32 =0 

6 x 64 =0 

7 1 x 128 = 128 

Soma 134 



Dessa maneira, e relativamente facil 
calcular o valor do codigo de qualquer 
caractere. Para isso, basta verificar as 
posicoes ocupadas pelos diversos pixels 
"acesos" na matriz do caractere, adicio- 
nar em seguida os valores inscritos na 
posicao, e somar 128 ao resultado (dai 
a razao de o numero 128 ser considera- 
do tambem como um c6digo grafico): 



CORRESPONDENCE ENTRE 

C6DIG0 E CARACTERE GRAFICO 

COMO CALCULAR CdDIGO 

BITS QUE SE ACENO EM 

APUCAC0ES 



memoria de video do micro. Como ca- 
da byte da memdria tem oito bits, e ca- 
da caractere seis bits, sobram dois bits 
nao usados para representar pixels. Um 
byte da memoria de video no TRS-80 
poderia ser representado assim: 



1 


2 


4 


8 


16 


32 



APUCAC0ES 



Este fato tem diversas implicacoes: e 
muito facil, por exemplo, inverter-se os 
graficos escritos na tela (para isso, bas- 
ta transformar os bits da memoria gra- 
fica, de modo que os que sao 1 passem 
para 0, e vice-versa). £ possivel obter 
outras transformacoes matematicas com 
os cddigos graficos, com resultados 
curiosos. 

Mas a aplicacao que mais nos inte- 
ressa no momento relaciona-se com a 
definieao de figuras complexas. Neste 
caso, o primeiro passo consiste em ar- 
mazenar os cddigos numericos dos ca- 
racteres graficos que compoem tais fi- 
guras, em uma linha DATA, que e lida 
e armazenada (concatenada) em uma 
variavel alfanumerica. Para economizar 
espaco, somente o valor diminuido de 
128 e armazenado. 

Tomemos como exemplo o programa 
a seguir; ele define uma variavel AS que 
content a imagem de um aeroplano sim- 
ples, formado pelos caracteres 141, 170, 
174, 170 e 140. 

10 CLS:AS»"" 

20 FOR I-l TO 5: READ H 
30 AS=A$+CHA3U28+N} 
40 NEXT I 
50 DATA 13,42,46,42,12 

O aviaozinho "voa" do seguinte mo- 
do: impresso inicialmente em uma po- 
sicao da tela (com PRINT @), ele e su- 
cessivamente apagado com cinco carac- 
teres em branco e exibido na posicao se- 
guinte, e assim por diante. Acrescente 
estas linhas e rode o programa: 

60 FOR 1-256 TO 313 
70 PRINT # I. A3; 
80 FOR J«l TO 40:NKXT 
90 PRINT #1," "s 
100 NEXT I 

Portanto, AS e, de certa forma, uma 
especie de sprite. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 
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f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 
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programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 
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PROGRAMACAO BASIC 

Simule a trajet6ria de uma bola no computador, utilizando 
modelos matemiticos em seus programas. 

PROGRAMACAO DE JOGOS 

Prepare-se para faiscar ouro no duro chao de Serra Pelada. E fique rico do dia para a noite. 

PROGRAMACAO BASIC 

Como utilizar caracteres graficos dentro de um programa. Uma tabela de referenda. 

CODIGO DE MAQUIIMA 

Faca algumas alteracoes no programa Assembler para o MSX e adapte-o para os micros da linha TRS-80, 

PROGRAMACAO BASIC 

Como armazenar figuras mais complexas 
em uma unica variavel. 
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